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A SYSDATA GANHA 
DINHEIRO FAZENDO 
MICROCOMPUTADORES 
COMO O SYSDATA III. 


ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 


SYSDATA III SYSDATA III 
Aqui, tudo o que Você espera Características técnicas. 
de um grande micro. Para aqueles que querem 

saber tudo. 


Compatível com o TRS-80 
Modelo III da Radio Shack. 


Total compatibilidade com o 
TRS-80 Modelo III da Radio 


Gabinete, teclado e CPU em Shack. 
módulos independentes. Processador Z-80-A. 
Versões de 64 a 128 KBytes de Vídeo de 16 x 64 ou 16x 32 
RAM, 16 KBytes de ROM. (linhas x colunas). 


Alimentação de 110 V ou 220 V. 


Teclado profissional com 
Teclado alfanumérico de 


numérico reduzido e 4 teclas 


de funções. 69teclas. 
Sistema operacional de disco Teclado numérico reduzido 
DOS III ou CP/M 2.2. com 4 teclas de funções. 





Caracteres gráficos. Gráficos com 128 x 48 pontos 
Vídeo composto com 18 MHZ no vídeo. 
de faixa de passagem. Aceita até duas R$-232-C 
Saída para impressora (Sincronas ou Assincronas). 






paralela. Modem (opcional). 
Saída paralela para 

impressora. 

SYSDATA HI Placa controladora para até 
Software disponível 4 drives de 5 e 1/4”, dupla 
variado. Escolha o seu. densidade (180 KBytes por 
Videotexto (TELESP). face), face simples (dupla be 
Projeto Cirandão opcional). 
(EMBRATEL). a ” 
Rede de telex. Opções futuras: 
Sistema Gerenciador de Vídeo compatível 16 x 64, 
Banco de Dados (SGBD), 16x 32, 24x 80 ou 24x 40 
DBASE II. (linhas x colunas). 
Compiladores Cobol, Expansão até 256 KBytes 
Fortran, Pascal, Basic, Forth, de RAM. 
Lisp e Pilot. Alta resolução gráfica e cor. 


Editor de textos. Editor de Assembler. 


Interface para acionamento de disco rígido 
Desassemblador. 


(Winchester) de 5, 10 ou 20 MBytes. 


Debugador. Clock dobrado (4,0 MHZ). 
Visicalc. Total compatibilidade com o TRS-80 
Wordstar, Mod. IV. 
e muitos outros. CP/M versão 3.0. 


SYSDATA 
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INTERPRETAÇÃO * 


1 4 DOMINE AS ÁREAS DA 

MEMÓRIA RAM ” DE,)0720 DE»: it 
Conheça melhor a estrutura do seu | 2x: E 
micro da linha Sinclair com esta a goto. 
rotina, de Cláudio de Freitas B. 
Bittencourt, que arruma para você 
as áreas da RAM. 


36 JOGUE EM RITMO 
ASSEMBLER - Chega de 
frustação! Desenvolva e incremente 
jogos em Assembler no seu micro 
da linha Sinclair, usando duas 
simples rotinas que Giangiacomo 
Ponzo Neto ensina a implementar. 


+11! caracteres) 
PRINT AT 20, 145 “G” 


RAND USR 16514 


Goro yr 


56 OS JOGOS COMERCIAIS - 
Um assunto muito sério, que 
7 merece os comentários de Renato 
Degiovani, e uma tabela 

! especialmente feita pela equipe de 
MS com tudo sobre jogos: os mais 
importantes existentes no mercado, 
Eau OS mais vendidos e ainda uma 
relação de acessórios disponíveis. 


O SUPER-DETETIVE 

Quem é o criminoso? Qual 
foi a arma e em que local? 
Descubra a resposta para estas 
perguntas e torne-se o Super- 
detetive neste jogo para a linha 
Sinclair, de Alberto Cezar de WALL 
Carvalho. k 





GO, UM DESAFIO MILENAR - Programa 
de Waldir Ferreira de Arruda, para a linha 
Sinclair. 


4 UM CONVITE AOS BONS VAQUEIROS - 
Programa para TRS-80 III, de Marcos 
Fernando Ribeiro Ferraz. 


16 FUNDE A CUCA - Programa para Apple de 
Cláudio Coelho Lima. 


DR. KASKLIN E OS FAGOCITONS - 
Programa para TRS-80, de Rui Ribeiro de 
Bastos. 


LANCE OS DADOS E... BOA SORTE! - 
Programa de Marco Sérgio Furtado Valeriano, 
para micros da linha Sinclair. 


3 IMPEÇA A FUGA DAS NAVES INIMIGAS 
- Programa para a linha TRS-80 I, de Sílvio 
Cavalcanti de Araújo. 


32 DEFENDA-SE - Programa para a linha 
Sinclair, de Tadeu Curinga da Silva. 





APERTE OS CINTOS E PILOTE NO 
ESCURO! - Programa para a linha Sinclair 
de Cláudio Costa. 


46 SESSÃO WESTERN - Programa para a 
linha Sinclair, de Cláudio Costa. 


48 GUERRA NA MONTANHA - Programa 
para a linha Apple, de André Koch Zielasko. 


50 MISSÃO RESGATE - Programa para micros 
da linha Sinclair, de Cláudia Eleone Gomes. 


52 A,D,B... ORDENE AS LETRAS - Programa 
para a linha Sinclair, de Roberto dos Santos 
Silva 


54 O SOBREVIVENTE - Programa de Sérgio 
Gouveia, para a linha Sinclair. 


66 CATÁLOGO DE DIRETÓRIOS - Utilitário 
para TRS-80, de Carlos Roberto Cerri. 
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amos entrar em 85 com o pé 

direito. Muitas mudanças já 

podem ser pressentidas em 
todos os níveis da vida nacional, e 
MICRO SISTEMAS não quer, deci- 
didamente, deixar de aproveitar essa 
onda de renovação para, ela tam- 
bém, se reciclar e, assim, atender ca- 
da vez mais a seus leitores. 

Já outras vezes tive oportunida- 
de de agradecer, deste mesmo espa- 
ço, a imensa colaboração prestada 
por nossos leitores no sucesso edito- 
rial alcançado por MS. Neste novo 
ano, contudo, uma apreciação do 
quanto nossa revista evoluiu me le- 
va, mais uma vez, a fazê-lo: de fato, 
jamais poderemos pensar em MS e 
no papel que ela tem desempenhado 
na comunidade usuária de micros 
sem considerar o enorme apoio 
prestado por nossos leitores e ami- 
gos. Em 85, pretendemos mudar al- 
gumas coisas, para melhor. 


siste 


Editor/ Diretor Responsável: 
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& E cá estamos, começando o ano 
por nossa já tradicional edição de jo- 
gos. Aproveitando um período de fé- 
rias escolares, presenteamos o pes- 
soal com um conjunto de programas 
de lazer que certamente vai agradar. 
Procuramos cobrir as mais significa- 
tivas linhas de equipamentos pes- 
soais, suprindo-as com jogos inte- 
ressantes, todos devidamente testa- 
dos em nosso CPD, de listagens cur- 
tas — para facilitar seu trabalho — 
e efeitos surpreendentes. 

Ressaltamos ainda uma matéria 
bastante completa, onde você se in- 
formará sobre os jogos mais famo- 
sos do mercado, muitos dos quais fo- 
ram listados, a partir de pesquisa 
realizada por nossa equipe, para que 
você possa comparar os preços e 
compatibilidades de cada um. 

O Gostaria ainda de ressaltar aqui 
nosso contentamento em ter, na edi- 
ção passada, finalizado a implemen- 


CPD: Pedro Paulo Pinto Santos (responsável) 
ADMINISTRAÇÃO: Janete Sarno 

PUBLICIDADE 

São Paulo: 

Natal Calina 

ENçeaimpa Eloisa Brunelli; Marisa Ines Coan; Paulo Gomi- 


Rio de Janeiro: 

Elizabeth Lopes dos Santos 

Contatos: Regina de Fátima Gimenez; Georgina Pacheco 
de Oliveira. 


dos Caetés. 
Te tosiizore 1284, Belo Horizonte, 
CIRCUI ASSINATURAS: 
Rooms BS asc 
Janio Pereira (SP) 
DISTRIB! 


UIÇÃO: 
Fernando Chinaglia Distribuidora Ltda. 
Tel: (021) 268-9112 


Composição: 
Gazeta Mercantil S/A Gráfica e Comunicações 
Fotolito: 

Organização Ben: Ltda. 

JB Indústrias Gráficas 

Acompanhamento gráfico: Fábio da Silva 





tação do SGM do Microbug, brilhan- 
temente coordenada por nosso cole- 
ga Renato Degiovani. Com isto, en- 
tramos em nova fase, que contará, 
tenho certeza, com a participação de 
todos aqueles que acompanharam o 
projeto e hoje têm nas mãos uma po- 
derosa ferramenta, fruto de ação iné- 
dita na área editorial brasileira que 
bem reflete nosso objetivo: fazer de 
MS um veículo dinâmico que contri- 
bua para uma maior interação entre 
leitores e revista, promovendo um 
uso intenso e racional dessas máqui- 
nas que nós temos o privilégio de pi- 
lotar. E vamos ao uso: divirtam-se 
com os jogos! 
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SOFTWARE 


apres 


enia novas fitas com 


desafios emocionantes para você! 


PARA EQUIPAMENTOS COM LÓGICA SINCLAIR 





1. VALKIRIE 2. MERCADOR DOS 


Pilote a nave Implacável 
Valkirie e parta SETE caçada espacial. 
em busca de dez MARES Totalmente 
castelos perdidos. No século XIX gráfico. 


(Exclusividade você percorreo 














3. SUBESPAÇO 


E mais: 
CAVERNAS DE 





Ciberne, por mundo a bordo 
Divino C.R. de seu navio, em MARTE 
Leitão). busca de bons (Exclusividade 
E mais: negócios. Ciberne, por 
GUERRILHA E mais: Divino 
CÓSMICA CORRIDA MALUCA e PINBALL C.R. Leitão) e COMBOIO 
eZOR. (Exclusividade Ciberne, por Divino ESPACIAL. 
C.R. Leitão). 
4. DEFENSOR 3D 5. ROTI- PLUS 6. APLICT 
tab Na * COMP-CALC 
Vi e aroma Rápido, eficiente e totalmente em 
E plcmarcçd operacional, com código de máquina. A melhor versão 
alienígena. linguagem do já famoso Visi-Cale l 
Fantásticas gráfica. Infinitas ) ? 
simulações opções de uso. e COMP-ARQ 
tri-dimensionais. Totalmente em Programa gerador de arquivos. 
E mais: Q'BERT código de Totalmente em código de máquina. 
(Exclusividade máquina Modele fichas e as acesse pelo 
Ciberne, (Exclusividade Ciberne, por J. Magal). campo que quiser. 


por Divino C.R. Leitão) e 
ASSALTO. 


e MERGE 
Possibilita a junção de vários 
programas, uns aos outros. 





A EQUIPAMENTOS COM LÓGICA TRS-80 


e COMP-TEXTO 
De fácil manipulação, totalmente em 
código de máquina. 





1. SIMULADOR DE vÔo 


Totalmente 
gráfico e 





PINTOR 
MALUCO e 











2. XADREZ 


O mais 
tradicional dos 
jogos, 
reeditado em 
nova e 
brilhante 
versão. 

E mais: 
PATRULHA 
ARMADA 

e PÂNICO 


(totalmente sonorizados). 





MA MEC praço 
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Av. G Sraça AÇÃO e ] Ir 





PARAGRAFICS 


eartas 
PAPAFÁ 















































O sorteado deste mês, que receberá uma 
assinatura de um ano de MICRO 
SISTEMAS, é Valério F. Laube, de Santa 
Catarina. 





No programa Batalha naval, publicado 
em MS nº 32, pág. 70, encontrei alguns er- 
ros na listagem e a ausência de duas linhas: 
faltou uma aspas no final da linha 2790; não 
foi colocado um AT após o PRINT da linha 
5340; e estas duas linhas não constaram do 
programa: 

8035 PRINT AT 19,1;“HIDROAVIÃO 3 
PARTES” 

8037 GOSUB VAL “8100” 

Quem digitou o programa notou que, 
quando estava jogando no nível 2 ou 3,e0 
micro estava perdendo (ou empatando, no 
caso do nível 3), o programa parava acusan- 
do erro 3 na linha 5750. Isso acontecia por- 
que estavam faltando linhas no programa 
publicado. Fiz estas alterações que deram 
certo: 

5744 IF CODE A$ (SA,2 TO)-37 = 0 

5745 LET C = CODE A$ (SA,2 TO)-37 
5746 LET A$ (SA) = ""*+*"" 

5747 IF P$ (1,0) =" EB" or P$ 
(1,0) * THEN GOTO VAL “5743" 
5748 GOTO VAL ““7000'" 

Além disso, gostaria também de fazer 
uma sugestão para MS: publiquem mais jo- 
gos que não sejam repetitivos e que usem va- 
lores randômicos, tornando-os, assim, com 
maior dificuldade para se viciarem. 
Francisco Roberto Costa 

São Carlos-SP 





Inicialmente, Francisco, sua sugestão 
também é nossa e a estendemos aos leitores 
que colaboram conosco. Com relação às 
suas observações sobre o Batalha naval, que 
aliás foi testado em nosso CPD e funcionou 
(e funciona) perfeitamente, mandamos suas 
considerações para o autor, nosso amigo 
e colaborador Waldir Ferreira de Arruda, Eis 
os comentários que recebemos do Waldir: 
“Realmente, nas linhas 2790 e 5340 es- 
tão faltando uma aspas e o AT, respectiva- 
mente. As linhas 8035 e 8037 não constam 
do programa porque achei desnecessário co- 
locá-las, visto que as características do hi- 
droavião permitem facilmente a verificação 
de que ele é composto de três partes. 
Quanto ao erro 3 na linha 5750, este é 
descrito no manual do equipamento como: 
“A matriz não contém o elemento especifi- 
cado”. Portanto, um dos valores da linha 
5750, isto é, ou L ou C, deve ter sido digi- 
tado com valor inferior a zero ou superior a 
15. Para que o colega Francisco possa iden- 
tificar melhor onde errou na digitação, lista- 
rei as prováveis linhas, e suas principais fun- 
ções, em que este erro deve ter ocorrido: 

20 DIM M$(15,15) — matriz do micro 
30 DIM P$(15,15)  — matriz do humano 
2815 DIM A$(38,2) — matriz de 38 ele- 
mentos com tama- 
nho de 2 caracteres 
2816LETA=O — zera contador 


341N LETA=A+1 


dor 

3412 LET A$(A) = L$—- move linha e colu- 
na (L$) para a ma- 
triz A$ (coordena- 
das das peças do 


— incrementa conta- 


humano) 

5670 e 5680 — gera múmero ran- 
dômico entre 1 e 
15 

5741 — gera número ran- 


dômico entre 1 e 
38 


Com referência à lógica dos níveis de di- 
ficuldade, se o micro estiver perdendo (no 
nível 2), ou se estiver empatado ou perden- 
do (no nível 3), o programa passará auto- 
maticamente para a linha 5741, que pega 
um número randômico entre 1 e 38, que é 
a quantidade de peças existentes de cada jo- 
gador. A linha 5742 acha uma coordenada 
da matriz A$ que não contenha os “**", ou 
seja, encontra uma coordenada do humano 
que ainda não foi acertada pelo micro, e mo- 
ve estas coordenadas para “linha e coluna” 
nas linhas 5743 e 5744. Na linha 5750, o 
“**"" & movido para a matriz A$, isto pa- 
ra marcar as peças já atingidas pelo micro. 
E tanto faz que a linha 5743 tenha a sintaxe 
LET L =CODE AS$(SA)-37 ou LET 
L =CODE AS$Í(SA,1 TO 1)-37, pois o re- 
sultado será o mesmo. 

Na linha 5750 é movido o caráter GRA- 
PHICS SHIFT A para a matriz do huma- 
no, Assim, só poderá dar erro 3 nesta li- 
nha, como já citei, se L ou C tiverem um va- 
lor menor que zero ou maior do que 15. E 
para que isto acontecesse, seria preciso que 
a matriz A$ possuísse caracteres menores 
do que A ou maiores que O, mas esta consis- 
tência é feita pelo programa nas linhas de 
3170 a 3230, e movidas (uma a uma) para 
a matriz A$ (nas linhas 3411 e 3412) so- 
mente as coordenadas dentro do limite da 
matriz P$, que foi definida na linha 30. 

Espero que esta explicação ajude o Fran- 
cisco a encontrar o seu erro ou efetuar as al- 
terações que deseje (pelo menos quanto aos 
níveis). 

Waldir Ferreira de Arruda 
São Paulo-SP 








Gostaríamos de parabenizá-los pela ma- 
tória Editores de texto, publicada em Ml- 
CRO SISTEMAS nº 36, setembro de 84. 
Entretanto, alguns esclarecimentos tornam- 
se necessários: o processador de texto Edi- 
tex, que é marca registrada e exclusiva da 
Microarte Software, de São Paulo, é um pro- 
cessador para a linha Apple e atualmente es- 
tá em sua terceira versão: o Editex Ill. 

O Editex Ill foi especialmente desenvol- 
vido para o equipamento Microengenho 2, 
e tem todos os caracteres de nossa língua, 
bem como separação silábica, dicionário in- 
terno programável, conferência ortográfica 
on-line, dupla coluna automática, notas de 
rodapé, negrito, sublinhado, integração com 
folha eletrônica e banco de dados, 10 mo- 
dos de alinhamento e vários outros coman- 
dos de edição e impressão (...). 

É importante notar que ele é o único 
processador de textos para a linha Apple de- 
senvolvido no Brasil, sendo que a Microarte 
possui a fonte do sistema. Os demais proces- 
sadores são traduções ou cópias americanas 
e possuem menor capacidade que o Editex 
tl. Existe uma versão (simplificada) deste 
mesmo processador para outros computado- 


res da linha Apple, que tem gerador de ca- 
racteres minúsculos e tecla SHIFT ativa: o 
Editex 1.4, que acentua também em várias 
impressoras, sem precisar de nenhuma adap- 
tação de hardware (...). 

Luis A. M. Meloni e Luiza H, C. Meloni 
Diretores da Microarte Software Ltda. 


Parabéns pela matéria sobre Editores de 
texto, publicada em MS nº 36: realmente 
MICRO SISTEMAS continua cada vez me- 
lhor. Todavia, temos alguns comentários a 
fazer: 

Nós não fomos consultados ou procura- 
dos por ninguém da MS antecipadamente 
sobre esta matéria e, assim, não sabemos de 
onde surgiu a cópia do Editex da Monk que 
vocês analisaram. Pelo texto da análise, de- 
preende-se que é a versão de 1982 ou 83 de 
nosso editor de textos, que se chamava, na 
época, Editex. 

Isto criou dois problemas: um para nós, e 
outro para a Microarte Software. Para nós, 
porque o produto analisado está defasado 
no tempo, e temos hoje outro editor de tex- 
to, com outro nome, lançado no início de 
84, já em sua segunda versão que, além de 
não ter as deficiências apontadas na maté- 
ria, tem outros recursos favoráveis. E para 
a Microarte porque esta empresa é, desde ju- 
nho de 84, a detentora da marca Editex (...). 

Quanto a matéria em si, como já disse- 
mos, está muito boa, principalmente consi- 
derando o árido panorama da divulgação de 
software pela imprensa especializada. Gosta- 
ríamos apenas de complementar que deve- 
riam ser enfatizados os software genuina- 
mente nacionais, como o da Monk e outros, 
porque isto é mais educativo e esclarecedor 
para o público, mesmo porque os editores 
de texto americanos são de difícil utiliza- 
ção, prova disso é que a maioria dos usuários 
do nosso editor são pessoas que já tentaram 
usar, sem sucesso, os editores americanos, 
como, aliás, concorda o Sr. Antonio Macchi 
Jr., citado na reportagem de MS. 

No mais, continuem sempre com suces- 
sos e progressos na MS, e de nossa parte, 
permaneceremos à disposição para qualquer 
colaboração. 

Guilherme Quandt de Oliveira Jr. 
Sóciogerente da Monk Micro Informática 
Ltda. 


Com" referência ao artigo Editores de 
texto, publicado em MS nº 36, na página 29 
foram publicadas informações sobre o que a 
Polymax oferece em termos de produtos pa- 
ra processamento de textos, mas algumas 
destas informações estavam incorretas e, as- 
sim, fornecemos agora as correções: 

A Polymax oferece dois produtos para 
processamento de textos, o Poly 105 WP e o 
Poly 301 WP. As diferenças entre eles são: 

— preço (CPU + teclado + vídeo + dois dri- 
ves): o Poly 105 custa 850 ORTN, com flo- 
ppy de 5 1/4"; e o Poly 301 tem o preço de 
1200 ORTN, com floppy de 8”. 

— armazenamento: o Poly 105 usa duas 
unidades de floppy 5 1/4”, com capacidade 
individual de 250 Kb; o Poly 301 utiliza até 
quatro unidades de disco flexível de 8”, 
com capacidade individual de 500 Kb, e po- 
de utilizar ainda disco rígido tipo Winches- 
ter de 5 ou 10 Mb ou fita magnética, sendo 
que a capacidade total do sistema vai até 
40 Mb. 

— impressora utilizada: ambos equipamen- 
tos usam a impressora de margarida Poly- 
print 55, ou 55 CPS, bem como impresso- 
ras matriciais com “near letter quality”; o 





Poly 105 WP pode também utilizar máqui- 
na de escrever eletrônica como saída de im- 
pressão. E a impressora Polyprint 90 não é 
uma impressora de margarida, é uma impres- 
sora matricial bidirecional de 90 CPS (...). 
Ricardo de Deus dos Santos 

Polymax Informática S. A. 


Inicialmente, queremos agradecer pela 
atenta leitura de nossa MICRO SISTEMAS, 
bem como pela gentileza de externarem o 
retorno provocado por nossa reportagem 
Editores de texto. Gostaríamos, entretanto, 
de destacar que MICRO SISTEMAS reitera- 
das vezes procurou fabricantes e software- 
houses, inclusive a Monk, para que colocas- 
sem seus produtos à nossa disposição para 
eventual análise e futuras reportagens. Infe- 
lizmente, nem todos compreenderam o al- 
cance de nossas solicitações. Assim, para efe- 
tuar a reportagem e análise em questão, uti- 
lizamos o material a que tivemos acesso. 

Aproveitamos esta oportunidade para en- 
fatizar, mais uma vez, uma idéia simples que 
resume a nossa atuação editorial: os fabri- 
cantes e software-houses criam produtos pa- 
ra os usuários de mi tadores, e 
MICRO SISTEMAS, com uma visão crítica 
de usuário, pois também o somos, repassa 
para seus leitores/usuários as características 
que realmente interessam ao consumidor fi- 
nal. Portanto, abordamos aquilo que vive- 
mos e ao qual temos acesso, sempre com a 
preocupação de ampliar e aprofundar estas 
informações. 


INTERESSE EM HARD 


Atualmente MICRO SISTEMAS é uma 
das mehores publicações na área de micro- 
computadores. Para ficar excelente, deveria 
dar uma maior atenção ao hardware de mi- 
cros, e artigos como os que saíram em MS 
nº 30 deveriam ser fixos (...). 

Gostaria de propor alguns projetos em 
hardware que seriam interessantes: aciona- 
mento de gravador para TK-83/85 e CP-200; 

ador sonoro; bip (tecla acionada); inter- 
faces (IN/OUT); conexão para cartuchos 
EPROM; gravador de EPROM no TK; ex- 
pansões de memória; conversor AD/-DA; 
interface para cassete com compensação au- 
tomática de volumes; alta resolução gráfica 
etc., sendo que o gravador de EPROM e a 
conexão para cartuchos de EPROM abri 
am um vastíssimo campo para software uti- 
litário. 

Valério F. Laube 
Schroeder-SC 








Muito bom, Valério. Suas propostas são 
objetivas e interessantes. Nós endossamos a 
sua lista e a repassamos agora para nossos 
leitores e colaboradores. Só tem um porém: 
expansão de memória e alta resolução grá- 
fica nós já publicamos em MS nº 37, uma 
edição praticamente voltada para o hard- 
ware. Dê uma espiada, ok? f 





Há muito tempo venho lendo MICRO 
SISTEMAS e, creiam, foi muito útil para 
mim no trabalho, na escola e também na 
criação de programas. As dicas sobre progra- 
mação, as explicações técnicas e os truques 


que podem ser efetuados em cada micro fo- 
ram publicados de forma bem simples e for- 
mam um arsenal de idéias que nenhuma em- 
presa fabricante de micro conseguiria colo- 
car no manual de seu equipamento. 

João do Prado Arnoldi 

São Paulo-SP 


Sou possuidor de um TK-85 e estou sa- 
tisfeito com o ótimo nível desta revista, 
principalmente pela atenção que dispensam 
aos usuários da linha Sinclair, como, por 
exemplo, com o sensacional MICRO BUG: 
finalmente surgiu um poderoso instrumento 
para se trabalhar com a famosa linguagem 
Assembler, desvendando seus mistérios e pe- 
culiaridades. 

MICRO BUG trouxe novos conhecimen- 
tos para mim e para muitos, que apenas 
compilavam os programas em Assembler de 
revistas, sem entender o real funcionamento 
dos mesmos. Parabenizo o CPD de MICRO 
SISTEMAS e seu coordenador Renato De- 
giovani pelo excelente trabalho desenvolvi- 
do, e espero que este nível alcançado suba 
ainda mais. 

Esdras Prado 
Santos-SP 


Venho por meio desta informar-lhes que 
o programa Viagem fantástica, publicado em 
MS nº 34, pág. 37, está com erro. Este erro 
ocorre na segunda parte do bloco, pois, 
quando digitado, simplesmente invade a se- 
gunda linha REM, juntando-a com a primei- 
ra. Peço por favor que me enviem ou publi- 
quem aonde está O erro para que eu possa 
rodar O programa, que parece ser um jogo 
muito interessante. 

Gostaria de fazer também, mais que uma 
sugestão, um pedido, não só em meu nome 
mas em nome daqueles que estão querendo 
ingressar neste universo maravilhoso que é a 
Informática: gostaria que implementassem 
uma seção voltada para a área de empregos, 
onde nós iniciantes pudéssemos saber em 
que firmas poderíamos estagiar. Acho um 
descalabro uma empresa pedir que um esta- 
giário tenha experiência anterior, pois se 
ninguém nos dá uma chance, como vamos 
adquirir experiência? 

Sugiro também que façam um tira-tei- 
ma com o programa Serra pelada, pois este 
ainda apresenta defeitos. Como exemplo, 
citarei apenas um: quando entramos no ar- 
mazém e compramos uma picareta, ou ou- 
tro objeto, o programa dá a mensagem “O 
dono é muito forte e não vai gostar disso”. 
Acho isso um erro, afinal, a mercadoria já 
foi comprada e nem estamos mais dentro do 
armazém. 

Gostaria também de parabenizar-lhes 
pelo projeto MICRO BUG, pois sei que é 
uma iniciativa pioneira (pelo menos em ter- 
mos de Brasil) e, como não poderia deixar 
de ser, os pioneiros são, nada mais nada me- 
nos, do que os representantes da melhor, 
primeira e inatingível MICRO SISTEMAS. 
Carlos Eduardo Lange 
São Bernardo do Campo-SP 


Antes de mais nada, Carlos, a equipe 
agradece os elogios. Com relação, no entan- 
to, so programa Viagem fantástica, não 
existe nenhum erro, exceto o publicado na 
Mensagem de Erro de MS nº 37, que re- 
comenda a eliminação da última linha do 
bloco em Assembler, a linha 16850, que foi 


publicada indevidamente. Não há mais ne- 
nhum erro, e o programa foi testado em nos- 
so CPD (e, às vezes, quando dá um tempi- 
nho, nós também viajamos com este jogo). 
Confira cuidadosamente a sua digitação e 
faça exatamente como o texto manda, prin- 
cipalmente com referência à criação de li- 
nhas REM, com os caracteres que estão in- 
dicados. Depois nos escreva contando as 
suas sensações nesta viagem, ok? 

Com relação ao seu pedido/sugestão, ele 
está anotado, mas não depende exclusiva- 
mente de nós, mas muito mais das empresas 
que utilizam programadores. Mesmo assim, 
sua sugestão já faz parte da nossa pauta de 
sugestões de leitores, para análise sobre a 
possibilidade de realização. Não se preocupe 
que todas as sugestões que recebemos são 
discutidas e analisadas e, quando o leitor 
menos espera, lá está sua sugestão concreti- 
zada. Aguarde. 

Quanto ao programa Serra pelada, tam- 
bém não há erro. E aceite o desafio que este 
adventure! faz: garimpe mesmo até encon- 
trar o ouro! 





Quero comunicar-lhes o meu crescente 
entusiasmo com MICRO SISTEMAS. Sou 
usuário de um TK-85 e esta revista vem 
dando grandes presentes para mim e para os 
outros usuários. Foi uma idéia sensacional 
o MICRO BUG, e espero que continuem 
com ele até atingirem todos os objetivos 
propostos no primeiro artigo do MICRO 
BUG (em MS nº 31), como o disassembler, 
o compilador etc. 

Achei também excepcional o Editor 
Assembler, publicado em MS nº 33, de Luiz 
Imbroisi Filho. Para nós, iniciantes em lin- 
guagem de máquina, artigos e programas co- 
mo estes que citei são de grande ajuda. Meus 
parabéns aos autores. Porém, só senti falta, 
no Editor Assembler, da possibilidade de 
utilização de /abe/s, porque é enfadonho ter 
que calcular vários endereços relativos e ab- 
solutos (CALLs, JOs e JRs da vida). Fica 
aqui a sugestão para o Luiz ou outro leitor 
que tenha conhecimento da estrutura do 
programa. Seria interessante também se 
transformassem o Editor Assembler em um 
módulo do MICRO BUG. 

Alexandre Pfeifer 
Divinópolis-MG 





Sendo esta a melhor revista sobre micros 
no Brasil, deixo a minha sugestão : gostaria 
que, além de micros nacionais, vocês publi- 
cassem também alguma matéria sobre os im- 
portados, já que eu, e muitas pessoas, sen- 
timos a falta de uma edição 'Brasileiral tra- 
tando deste assunto e, por isso, somos obri- 
gados a recorrer à publicações estrangeiras. 
Marco Antonio Milani 
São Paulo-SP 


(...) O que vocês pensam de um artigo so- 
bre monitores? Do mesmo tipo do que vocês 
já fizeram com computadores, com uma ta- 
bela de características, conteúdo, cor, pre- 
ço em ORTN etc. 

André G. Velloso 
Rio de Janeiro-RJ 





Envie suas sugestões para MICRO 
SISTEMAS. Elas serão anotadas em nossa 
pauta e procuraremos, na medida do 
possível, viabilizá-las. 





Você vai precisar de muita perspicácia para sair vitorioso deste incrível jogo desenvolvido para micros 
da linha SINCLAIR. Atenção: você está diante de um mini campo de batalha, cuidado com o inimigo! 





GO, um desafio milenar 


uma interpretação bem oci- 

dental, podemos dizer que 

este é um wargame de 3000 

anos, já que foi cultivado en- 
tre os chineses, tanto como jogo de adi- 
vinhação como desafio intelectual (usa- 
do até para fins políticos), desde os re- 
motos 2300 anos A.C. 

Este jogo foi desenvolvido para ser jo- 
gado por duas pessoas, com micro exer- 
cendo apenas a função de monitor. A 
partida tem início assim que os jogado- 
res escolhem as suas pedras: pretas ou 
brancas, sendo que as brancas possuem 
o privilégio de iniciar. O objetivo de 
ambas as pedras é cercar as inimigas (as 
brancas devem cercar as pretas e vice- 
versa) e conquistar o maior número pos- 
sível de territórios. O tabuleiro possui 
361 cruzamentos de linhas, portanto, 361 
pontos, e cada um destes pontos é con- 
siderado um território. 

A cada pedra inimiga cercada, ganha- 
se 2 pontos, e a cada território conquis- 
tado, apenas 1. Caso uma pedra e co- 
locada em território inimigo, este último 
perde os  aqrad que foram conseguidos 
em virtude desta conquista, pois houve 
uma invasão de território. E inicia-se as- 
sim uma nova luta para expulsar o inva- 
sor. Se acontecer de um jogador colocar 
uma pedra sua em um território que já 
lhe pertencia, perderá 1 ponto, além de 
disperdiçar uma pedra numa jogada inú- 
til 


“Cada jogador tem direito a 180 pedras 


e, ao término destas, vencerá a partida o 
jogador que obtiver mais pontos. Por is- 
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Waldir Ferreira de Arruda 


so, é bom evitar jogadas em territórios 
perigosamente cercados.- Eis um exem- 
plo de situação perigosa: se jogarmos em 
um território ganho pelo inimigo, conse- 
guiremos tirar os pontos ganhos por ele, 
mas em compensação gastamos uma pe- 
dra. Se este território valer apenas 1 pon- 
to no tabuleiro, qualquer lugar do tabu- 
leiro que o inimigo coloque a sua pedra 
implicará na eliminação de nossa pedra, 
quer dizer: o inimigo recupera os seus 
pontos e nós perdemos uma pedra. Mas 
se o território a ser conquistado for 
maior, poderemos ter uma boa luta para 
reconquistá-lo. 

As pedras inimigas podem ser cerca- 
das na quantidade desejada e em qual- 
quer direção. Para que uma ou mais pe- 
dras sejam consideradas mortas, estas 
deverão estar totalmente cercadas, ou 
sem nenhum território entre elas. 

Qualquer pedra pode ganhar a quan- 
tidade de território que desejar, basta o 
inimigo permitir. Tudo irá depender da 
forma de ataque e defesa de cada um, 
afinal de contas, este é um jogo de estra- 
tégia. Cada jogador deve desenvolver 
sua própria tática, seja partindo para ci- 
ma do inimigo ou apenas conquistando 
territórios. 


O PROGRAMA 


Antes de comerítarmos o programa 
propriamente dito, é interessante que se- 
jam esclarecidos alguns aspectos impor- 
tantes da digitação dos blocos Assembler. 

A execução do programa em Assem- 


bler tem que funcionar na modalidade 
FAST pois utiliza o par de registros IY. 

Para a criação da linha 20 REM....., 
com 2520 bytes, deve ser utilizado o 
montador de REM publicado em MICRO 
SISTEMAS nº 30 ou o MICRO-BUG. É 
importante observar que a linha REM 
deve ser a primeira do programa e os seus 
361 bytes têm que ser o caracter ponto 
(.). Portanto, se for utilizado o montador 
de REM, faz-se necessário dar o coman- 
do direto POKE 16542,27 antes de criar 
a linha REM, pois assim o montador ao 
invés de criar UNS criará PONTOS. Caso 
esta modificação não seja feita, deve ser 
criada então a linha 20 REM, com todos 
os 2520 UNS, digitando em seguida os 
blocos em Assembler, e ao término des- 
tes comandar diretamente (via teclado) 
RAND USR 18045 (é claro que tendo a 
certeza de digitação correta). 

No momento em que se for criar a li- 
nha REM, seja com a utilização do mon- 
tador de REM ou do MICRO-BUG, é 
muito importante que o comando RAND 
USR 18045 seja dado após a digitação 
dos blocos em Assembler, mas também 
apenas neste momento, depois não mais 
será necessário. Isto se deve ao fato de 
que o comando RAND USR 18045 jo- 
ga pontos (.) nos primeiros 361 bytes, e 
branqueia os próximos 24 bytes após os 
361 pontos. Estes 24 bytes são utiliza- 
dos como contadores e como controle 
de partidas e os 361 bytes como matriz 
e montagem da tela. 

A parte em BASIC não tem nenhum 
segredo, basta apenas digitá-la sem maio- 
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res detalhes. O único icular é que a 
partir da linha 9000 do BASIC foi desen- 
volvido um programa que serve para con- 
ferir a parte em Assembler que foi digi- 
tada. A sua utilização é simples: digite 
GOTO 9000 que o programa pedirá o 
endereço inicial e o final do bloco que 
se deseja conferir. Apesar de se perder 
um pouco de tempo, é bom utilizar este 
programa para evitar surpresas na hora 
de executar o Assembler. 

O tabuleiro do GO possui 19 linhas 

r 19 colunas, ambas marcadas com as 
etras de A até S. Para se colocar uma 
pedra numa determinada posição, deve- 
se digitar linha/coluna, por exemplo: 
linha H e coluna I, digitando-se então 







30BREM UALDIR F. ARRUDA 
05/06/84 
40 REM s-s-s-s-+-s-a-s-s-s-+-+ 
+ 
ESTE PROGRAMA + 
Eº DEDICADO ROS MEUS+ 
FILHOS BRUNO/DENIS + 








teto 











so G 
90 R USR 16 
100 LET W=USR 1807 
110 IF Wc>0 THEN Goro 1200 
115 RAND USR 15900 
120 GOSUB Soo 
130 POKE 18597,52 
140 USR 18600 
150 THEN GOTO 2000 
200 16860, (PEEK 16880) +1 
230 
es o 
eso o 
280 
270 97,61 
280 R 18600 
o THEN GOTO 2000 
o 78, (PEEK 16879) +1 
o 
380 seo 
390 seo 
400 
a 16879>=180 THEN GOT 


co 
410 GOTO 150 
so” REM 
510 RAND USR 15220 
S40 PRINT AT 6,26; PEEK 16892425 
G+PEEK 16591 s 
SS0 PRINT AT 10,26; PEEK 16890+Z 
S6+PEEK 8; 
SSS PRINT AT 14,26; PEEK 16850 
1RT 15,26; PEEK 16879; 


830 RAND USER 






na Nº - PARA 
CONTINUAR A P 
1010 IF INKEY$='"5" MEN GoTO 104 


o 
a IF INKEY$="N" THEN GOTO 110 


30 GOTO 1090 
1040 LET NP=PEEK 16579 
1050 LET NE=PEEK 16550 
1055 COSUB 1600 














1060 IF NB=NP THEN GOTO 115 
1070 GOSUB 1600 

1080 GOTO à 

1100 GOSUB 1600 

1110 RAND USR 18045 

1120 GOTO 115 

1600 PRINT AT 21,0; 

1610 RETURN 


1700 GOSUB 1600 

1705 GOSUB seo 

1706 POKE 16418,0 

1710 PRINT AT 22,0; "umml FIM DE P 


ARTIDA 

1720 L =PEEK 16889+256+PEEK 1 
seso 

1730 LET O=PEEK 16691+256+PEEK 1 








MICRO SISTEMAS, janeiro/85 


GO em BASIC 





HI e ENTER. Para deletar não se deve 
usar SHIFT DELETE e sim o caráter 
ponto (.). 

O programa controla de quem é a vez 
de jogar através do controlador de pon- 
tos. Jogará aquele que tiver a cor de sua 
letra invertida, ou seja, se a vez for das 
pretas (x), a letra x ficará invertida. To- 
dos os lances são conferidos pelo progra- 
ma, dando mensagem de erro na posição 
21,0. Para cada lance correto é pedido 
uma confirmação, à qual deve-se res- 
ars S ou N. Se a resposta for S, o 
ance é efetuado, se for Na pedra é reti- 
rada do tabuleiro, sendo portanto solici- 
tada uma nova jogada. É importante ob- 
servar que todas as perguntas feitas pelo 


s8sa2 

1740 RAND USR 18045 

1750 FOR N=1 TO 40 

1760 NEXT N 

1770 IF X>0 THEN PRINT AT 214, 
AS PRETAS VENCERAM" 

1780 IF X<O THEN PRINT AT 21 
AS BRANCAS VENCERAM" 

1790 IF X=0 re PRINT AT 21, 


rm mp 


E IR ar 
* THEN GOTO 1800 


15820 

No pers AT 21,0; "B-sAVE B-RU 
N 

2010 IF INKEY$=" P" THEN STOP 
2020 IF INK: THEN RUN 
2030 IF INK * THEN GOTO 205 





1 "APERTE QUALO 
AR" 


ENDERECO INICIAL = 


o] 
z 
v 
na 
pr] 
H 


I 
"ENDERECO FINAL = 


s090 LET Es="] 


S100 LET Cg=" 











Raua ss. 
9110 C= 8 
9120 cer a PEER (1+C) 


9130 LET O=INT (A/16) 
9140 LET R=(A-16+40) +28 
LET 0=0+28 

D LET H$=HS+CHRS 


(0) +CHRS$ (R) 














4" 
91 LET W=I+C 

9180 IF W=F THEN GOTO 9260 
9190 NEXT € 

9200 PRINT AT 21,0; "“"ENTER"" 
9210 INPUT Ps 


9215 PRINT AT 12,6 
9220 PRINT AT 12,0; 


LET Izy 
9240 LET H$= 
9250 GOTO S110 
8260 PRINT AT 
INPUT Pg 
9275 PRINT AT 
9280 PRINT AT 
8a 


Do PRINT AT 


Bs 
I+1,AT 12,7,;H 











m 
pes 


“ENTER""" 


pera 
ro” 


;B$ 

+1+1;AT 12,7;H 
“A(S/N) - PeRA 

“502Ro BLOCO 

310 IF INKEY$= * THEN GOTO 934 


s 
IF INKEY$="N" THEN STOP 
Raço 9310 


s ou 9 


m 
pes 


[=] 


Esto sogo 
PRINT AT 11, 
PRINT AT 
PRINT AT 
RETURN 


aaa 
omD 
uma 





DODDDDDLSA 
MMC 
COPO pe Cano 
99599656 


pa deverão ser respondidas com 


Não se impressione se logo no primei- 
ro lance as brancas marcarem 360 pon- 
tos; é como se elas ganhassem todos os 
territórios restantes no tabuleiro, mas, 
assim que as pretas efetuarem o próxi- 
mo lance, estes pontos voltam a zero. 

O jogo pode ser interrompido a qual- 
quer instante. Para isto basta que na ho- 
ra de serem dadas as coordenadas do 
lance, digite-se um asterisco ("). Apare- 
cerão então na posição 21,0, três opções: 
S-SAVE (grava o programa); R-RUN 
(pergunta se é para continuar a partida 
ou começar uma nova), caso se decida 
por uma nova partida, todas as pedras 
existentes no tabuleiro serão retiradas e 
os respectivos contadores zerados; se a 
opção for para continuar, basta observar 
de quem é a vez de jogar através das le- 
tras X ou O invertidas; e P-STOP (encer- 
ra a partida). 

Por fim, para que os jo ogadores te- 
nham uma perfeita noção do terreno em 
que vão disputar esta incrível batalha, 
eis uma breve descrição do que cada blo- 
co em Assembler executa: bloco 1 — im- 
pressão do tabuleiro e criação da tela; 
bloco 2 — detecta pedras mortas; bloco 
3 — conecta pedras pretas; bloco 4 — 
conecta pedras brancas; bloco 5 — elimi- 


na pedras mortas; bloco 6 — prepara'a & 


Seu micro 
merece 
Assistência 
Técnica 
ASSIST. 


E você merece a tranquilidade de contar 
com a mais eficiente equipe técnica do Rio, 
treinada nas fábricas, e recomendada 
Petrobrás, Furnas, Light e Bolsa de Valores. 
AASSIST oferece também diversas opções 
para contratos anuais de assistência técni- 
ca, que garantem o máximo ao seu micro. 

E sem custar mais por isto. Dá 

Osmicros Spectrum, Prológica, Digitus 
emuitos outros, além de vídeo-games e com- 
patibilização de periféricos, têm na ASSIST 
uma assistência técnica aprovada pelos pró- 
prios fabricantes. Além disto, você tem total 
assistência aos micros importados: Sinclair, 
TR$-80, Apple e PC/IBM. 

Se você tem um micro e quer o máximo em 
assistência técnica, não pense duas vezes: 
pense ASSIST. 

ASSIST: A máxima solução para seu micro. 


EISSIST 


soria de Sistemas e Engenharia Ltda 








GO, UM DESAFIO MILENAR 


FD 
FE 
oi 
DF 
21 
32 
as 
18 
37 
1D 


a 
mo 


PRAGONOSHEMMET 
DDDOLDONSONTSSS 


contagem de pontos; bloco 7 — conecta 
dras brancas e pretas; bloco 8 — veri- 
ca o campo neutro das brancas; bloco 
9 — verifica o campo neutro das pretas; 
bloco 10 — faz a contagem dos pontos; 
bloco 11 — limpa o tabuleiro; bloco 12 
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ns! 
MeTENENEOS 
ORIPODOHEO 


9904 Dons 
Dreua 
voaram 
Geo ERMAMm 
rem Am 
GPODVRNO 


DIS 


VVSPOGRNDD 


— verifica a continuação da partida; blo- 
cos 13/14 e 15 — impressão na tela, no- 
me do jogo, quantidade de pontos, nú- 
mero de lances e também aponta de quem 
é a vez de jogar; blocos 16/17/18 e 19 — 
rotina de entrada e conferência de dados. 


NSONGOSHOL ROS! 
DODAGO Dep gm 


PROG GUNIO 
DADOMO= DAM 


PODEGO 


eMIUuESNE JD GrRpm 
MEDO AGIDO VS 
em 
DDI PO DO 


JEeLIASatoercorou 
JOPOJORMOROrONRO 
OMDEDSOr 


DUVORAPODEVUGOLISONTOTPO PO TH 
DOSVPASOOM 


q 
PUTAS TOLDO DO 





Waldir Ferreira de Arruda estudou na Facul- 
dade de São Paulo (FASP), e trabalha atual- 
mente na Incremento Informática S/A, onde 
ocupa o cargo de Analista de Produção. Co- 
nhece as linguagens COBOL, PL 1, Assem- 
blere BASIC. 
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am 
a 





Quanto custa 
transformar um 
terminal remoto 


. TR 207num 
microcomputador 
Cobra 210? 







O microcomputador Cobra 210 
e o terminal remoto TR 207 são primos 
em primeirissimo grau. Os dois foram pro- 
jetados para permitir a padronização dos 
processos industriais, com a consequente 
redução do custo de fabricação e do preço ao 
consumidor. - 
O micro e o terminal utilizam a mesma mecânica, a mesma fonte de alimentação e o mesmo 
vídeo. Eles têm pequenas diferenças nas partes eletrônicas e nas características do teclado. 

Qual a vantagem dessa padronização para o usuário? 

A primeira é que um micro Cobra 210 pode desempenhar plenamente todas as funções de um 
terminal remoto, sem prejuizo de suas funções de microcomputador. 

A segunda é que um terminal remoto pode ser facilmente convertido num microcomputador 
Cobra 210. O processo de transfor- 
mação é simples e o custo é baixo. 

Como você vê, quando compra 
um Cobra 210, você leva um micro que 
também pode funcionar como terminal 
remoto. E quando compra um 
TR 207, você leva um terminal remoto 
que pode ser transformado em 
micro, como num passe de mágica. 

Isso não é um bom negócio? 
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ção, ope , 2 E 80X24, 40X24,64X16 
Re pure reverso. . Sua CPU ignoram 





“Opcionalmente o NAJA 800 pode serequipadocomplacadealtareso- 
áfica (640X240 pontos), disco rígido tipo Winchester, disco de 
i icação serial e sintetizador de voz: — 
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Velho Oeste, cowboys e gado são as atrações desse programa 
para equipamentos da linha TRS 80 Il 











Um convite 
aos bons vaqueiros 


Marcos Fernando Ribeiro Ferraz 
e 


ocê é o capataz e de repente se vê diante de um 

problema no rancho. Este é o espírito do Curral, 

um jogo que consiste na tentativa de imobilizar 

dois animais fugitivos empregando estrategicamen- 

te os vaqueiros e obstáculos como cactus e rochas, colocados 

aleatoriamente na tela. O número de obstáculos gerados será 

proporcional ao nível de dificuldade, isto é, quanto mais obs- 
táculos, mais fácil fica a captura dos animais. 

É bom observar que, devido ao fato de os obstáculos serem 

colocados de forma aleatória, pode ocorrer de os animais fica- 





[ Curral 


441. = IS 1W=22215=2541N=2341G0TO 160 
PRINTO98A, *”p  INPUTONIVEL (O-DIFICIL * 15- 





10 CLEAR SO0tV=25as 
20 CLSIPRINT CHRS 
FACIL)“pLVIF LUCO OR LUDLS THEN GOTO 20 ELSE CLSIPRINTO6S, STRIN 
08(43,140); !FOR I=i TO 141POKE 15360+In64, 1911POKE 15423+1064,19 
LENEXT ISPRINTOZ?,CHRS(194) 5” CURRAL “;CHRSCA9L)s 
30 PRINTOO,NHS;”. ..”/H95) !PRINTO9GO, STRINOS (63,131), 2POKE 16303, 
13L1FOR Ini TO 10:P(T)=15834+I2POKE PCT), VINEXT IE J=LIPOKE 14919 
« OIPOKE 16920,0 
dO H=(RND(3)-2) SAL IF He0 GOTO 40 ELSE Av154Z4MCRND(1Z) )n64LFOR 
1es TO RND(10)+B1POKE ASILLIIF I=6 OR 1=7 POKE A+I,I22MEXT 1 ELS 
E NEXT IIANA+I-SSFOR Iot TO SILASAMHEIF PEEKCA)=32 POKE A,LINEXT 
ELSE NEXT 1 
FOR I=i TO 228(1)=15420+RND(900) IF PEEK(BCID)()32 GOTO SO EL 
NEXT 1 
FOR Ii TO RND(LUNZO)+10:A=154205RNOCPOO) FIF PEEKCA)()3Z NEXT 
ELSE POKE A,WINEXT IIFOR I=4 TO RNDCSULU)*S2A=154204RNDC900)4 
PEEK(A)()32,NEXT 1 ELSE POKE A,KINEXT 1 
FOR Fui TO 22H=BLF)IZSRNDCA)IIF Ze1B(F)=He6A ELSE IF Zo28(F)= 
H-64 ELSE IF Z=38(F)=Hei ELSE B(F)=H-1 
80 HCF)aHINEXTE SPRINTOSO, RIGHTSCTIMES, 5) p HPOuP (CJ) EX=REEX (1440051 
IFX=0, POELSELFX=64P ( J) =P (+14 EGOTO9DELSELF X=32P ( J)mP(J)-L260TO 9 


rem totalmente isolados dos vaqueiros. Neste caso, resta ao ca- 
pataz rodar de novo o programa. Os movimentos dos vaqueiros 
são controlados pelas quatro setas do teclado. Para selecionar o 
vaqueiro que se deseja movimentar a cada vez, é só usar a tecla 
de espaço. Agora, a galope para o Curral. 





Marcos Fernando Ribeiro Ferraz está no último ano do curso de Enge- 
nharia Eletrônica da Universidade Federal do Rio de Janeiro. 





DELSEIFX=1 6P (J)mP(J)+642GOTOPDELSELEX=BP CJ) =P ( J)-64100TOPDELSETF 
X=128POKEP CJ), Vi Je JOL ETF Joss Jet POP CJ) FELSEPOSP (JS) 

90 FOR I=í TO 2rIF PEEXCBCID)C)IZBCI)=HCT)ENNSNNALIPOKE ECT) NEN 
EXT 1 ELSE POKE B(I),NIPOKE MCT), 322NN=OSNEXT 1 

100 IF PEEXCP(J)CIIZPCJ)=POIPOKE P(J),S ELSE POKE PCJ),SIPOKE P 
0,32 

ÃO IF NNCSO GOTO 70 ELSE ES=RIGHTSCTIMES,5) 

120 AcVAL(LEFTSCES,2))21F MMDA,T=2 ELSE IF MM=A AND HSDVAL (RIGHT 
$(E$,2)),T=2 ELSE T=i 

130 JS=INKEYSIH=DIASVAL (LEFTSCES,2))2B=VAL(LEFTSCES,2))21F MNCA 
OR HM=A AND HSCB,GOTO 150 ELSE CLSSPRINT CHR$(23) 2PRINTOI9A, “VOC 
E BATEU O RECORDE |”1PRINTOAGO, “ENTRE COM SEU NOME” IHH=ASHS=BIHS 
SeESINNSO” 

140 PRINTOS96,*”; 2 INPUT NHSINHSSLEFTSCNHS, 15 
150 PRINT9770, “PRESSIONE (ESPACO) PARA COMEC: 
OTO 20 ELSE 150 

160 CLSIPRINTOZS, “CURRAL”; SPRINTOGA, STRINGS (64,140); !FOR Imá TO 
AOSPOKE 1557261, VENEXT I 

170 PRINTAZDA, “(um VAQUEIROS”:POKELS6IO, NIPOKESSGAS,NIPRINTOZES, 
“(um ANIMAIS" ;3FOR I=2 TO 10 STEP 22POKELS699+I,KENEXT TEPRINTOS 


nEIF INKEYS .s 


rIFOR I=1 TO 10:POKESSO2O+I,LENEXT 1 
CERCADO” 4 

180 POKELSBPA, VIPOKELS022, VIPOKELS9S7, VIPOKELS9S9, VEPOKELS9SO, Nº 

POKELS900,LIPOKE1S964,KIPOKELGO2O, MIPOKESSPOS,NIPOKELSPOS, VIPOKE 

15901, VIPOKES 6029, VIPRINTOGOS, “(== EXEMPLO DE CAPTURA”; IHS=592HM 

=SPINHS="ennna” 1H5S="5915971GÓTO 150 
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Obter melhor desempenho de um equipamento de lógica Sinclair depende 
muito do grau de domínio sobre ele. Por isso, vamos explorá-lo mais 








Domine as áreas 


da memória RAM 


m dado de grande importân- 
cia para quem desenvolve pro- 
as, principalmente em 
em de máquina, é o 
conhecimento — mais do que isso, o do- 
mínio — da memória RAM, cuja estrutu- 
ra, nos micros da linha Sinclair, apresen- 
ta-se segundo o esquema da figura 1. 
Quando se está digitando ou rodando 
um programa, as diversas sub-áreas em 
que se divide a RAM mudam constan- 
temente de tamanho, numa espécie de 
mecanismo de sístole/diástole, para usar 
termos mais ou menos em moda. Tudo 
acontece às custas da reserva, que dimi- 
nui quando uma sub-área aumenta e vi- 
ce-versa. 
Um reeurso muito empregado por 
Pp: adores é o de alterar a posição 
da RAMTOP (RTP), variável que indica 
o primeiro endereço fora do alcance da 
pequeno BASIC. Quando o micro é 
gado, a RTP está no seu endereço má- 
ximo e lá permanece até que seja rebai- 
xada para um endereço R mediante os 


comandos BASIC abaixo ou através de 
instruções em linguagem de máquina: 
POKE 16388,R—256*INT (R/256) 
POKE 16389, INT (R/256) 


tsesog 


torrLe 


Cláudio de Freitas B. Bittencourt 
[e 


Esse processo diminui a RAM e ape- 
nas é executado para reservar, nas posi- 
ções superiores, uma área a salvo de in- 
vasões indesejáveis, decorrente dos tais 
movimentos de sístole/diástole já cita- 
dos. Os endereços situados nessa área 
privilegiada ficarão também imunes aos 
comandos NEW, SAVE e LOAD. 


Mas isso não é tudo, pois as sub-áreas 
STACK DA MÁQUINA e STACK DO 
GOSUB permanecem nas posições origi- 
nais e podem, eventualmente, crescer 
(crescem para baixo) e destruir bytes 
e supunhamos a salvo sob proteção 

a RTP. Para realocar essas sub-áreas, de 
acordo com a nova posição da RTP, o 
único comando disponível é o NEW, 
que, no entanto, apaga os programas 
BASIC e suas variáveis, sendo por isso 
impraticável em certas circunstâncias. 
Normalmente o que se faz é, com a 
RAM ainda vazia, logo após ligado o 
computador, colocar a RTP no endereço 
desejado, teclar NEW e, então, digitar 
ou carregar programas. Tem-se, assim, 
uma única opção, com a agravante de 
ter que ser feita antecipadamente, o que 
não é nada prático. 


tvars turne tprrrun 


Para resolver o problema, apresenta- 
mos a rotina da listagem 1 em linguagem 
de máquina, que realoca a RTP e trans- 
fere os STACKSs para as posições ade- 
quadas. A operação pode ser efetuada a 
quaquer momento e repetida indefini- 

amente, fazendo o conjunto descer ou 
subir na memória, desde que observadas 
as seguintes precauções: 


e colocar a RTP sempre na RESER- 
VA, quando estiver sendo abaixa- 
da; 

e nunca ultrapassar o endereço limite 
(32768, em micros de 16 Kb). 


e considerar que os STACKs ocupam 
cerca de 100 endereços e que não 
pode haver qualquer superposição, 
seja com eles próprios ou com ou- 
tras áreas da memória; 


e nunca alterar o endereço da RTP de 
menos do que 100 unidades; 


e colocar a RTP o mais distante pos- 
sível da PILFIM, a variável que in- 
dica o início da RESERVA (para co- 
nhecê-la faça PRINT PEEK 16412+ 
256*PEEK 16413). 


torreim tsp teus rp 








MICRO SISTEMAS, janeiro/85 


As violações dessas regrinhas de bom 
senso, por conta e risco do usuário, po- 
derão provocar o colapso do sistema, 
mandando o seu programa para o espaço. 

Para digitar a rotina use um editor 
Assembler pote ser aquele publicado 





[Er Listagem 1 — Arrumando a RAM 


ENDEREÇO CÓDIGOS MNEMÔNICOS INTERPRETAÇÃO* 







































16514 n 00 78 LD DE,30720 ; DE=30720 em MS, nº 23) e prepare uma linha ini- 
rifa am: DETIO LD BLe(16388) 3, NLeRTP cial: 1 REM... 58 caracteres. 

FP XOR A ; BIT de carry = O 
16521 ED 52 SBC HL,DE ; HL=RTP-30720=4 Devem ser exatamente 58 caracteres 
16523 30 11 JR NC 17 ; IF 4>=0 GOTO 16542 i i - 
16525 DS PUSH DE ; 30720 no STACK da máquina URBANAS» Rode v editor e forneça co 
16526 2A 04 40 LD BL,( 16388) ; HL=RTP mo endereço inicial 16514(4082 em he- 
16529 EB EX DE,HL ; HL—pE xadecimal). 
16530 Ar XOR A ; BIT de carry = O sui 
16531 ED 52 SBC HL,DE ; HL=30720-RTP=4 Os bytes posicionados nos endereços 
16533 D1 POP DE ; DE=30720 16515 e 16516 destinam-se a receber o 
Moss ra didi | | Bc-nL=a valor a ser dado à RTP e, no momento, 
16536 2a 02 40 LD HL,(16386) ; HL=ENSP contêm o número 30720(7800 em he- 
165 o ADD HL,BC ; HL=ENSP+4 3 
16540 18/07 0? à GOTO 16549 xadecimal). Para mudar para um valor 
16542 44 LD B,H o a R faça: 
16543 4 LD C,L ) = * 
16544 2a 02 40 LD HL,( 16386) ; HL=ENSP POKE 16515,R 256 INT(R/256) 
16547 ED 42 SBC HL,BC ; HL=ENSP-A POKE 16516, INT(R/256) 
16549 22 02 40 LD(16386),HL ; ENSP=HL=ENSPts i i . 
16552 2a 04 40 LD HL,( 16388) ; HL=RTP E para acionar a rotina: = 
16555 AP XOR A ; BIT de carry = O RAND USR 16514 e 
16556 ED 72 SBC HL,SP ; HL=RTP-SP 
16558 44 LD BH : ciitaERo 
16559 40 LD C;L o ida 
16560 2A 04 40 LD HL,( 16388) ; HL=RTP 
16563 ED 53 04 40 LD(16388),DE ; RTP=30720 
16567 ED B8 LDDR : copia STACKs na posição nova 
16569 EB EX DE,HL | HLe— DE 
16570 F9 LD SP,HL 4 SP=HL 
16571 cs RET ; RETURN 








Cláudio de Freitas B. Bittencourt é formado 
em Engenharia Metalúrgica e é professor de 
pós-graduação em Engenharia Nuclear no IME 
— Instituto Militar de Engenharia, no Rio de 
Janeiro. 


*0BS.: Na interpretação foi usado o símbolo 4 para indicar o desloca- 
mento da RTP. 











TFPEGPLE 


Computação 


CURSOS "nm MICROCOMPUTADORES 


BASICI — BÁSICO 
BASIC Il - AVANÇADO 


Método Próprio de Ensino 

Professores Especializados 

Apostilas Completas de Textos e Exercícios 
1 Micro para cada 2 alunos 

N9 limitado de vagas / turma 


São Paulo — Av. Rouxinol, 201 — Fone 61-4595 
Campinas — Rua Cesar Bierrenbach, 171 — Fone 8-3608 
Jundiaí — Rua São Francisco Salles, 16 — Fone 437-7988 
Rio de Janeiro — Av. N. S. Copacabana, 1417 - loja 313 - Fone 521-1549 











Se o tal de cubo mágico nunca chegou a esquentar sua cabeça, 
aceite o desafio deste jogo, criado para a linha Apple 








Funde a Cuca 


usuário da linha Apple 
liga em quebra-cabeça eletrô- 
nico vai encontrar em Funde 
a Cuca um passatempo muito 
interessante. Trata-se de um jogo seme- 
lhante ao conhecido cubo mágico. O jo- 
gador é convidado a formar uma frase 
de 25 caracteres. O desafio tem início 
com a desordenação das letras, que fica- 
rão dispostas num painel de 25 quadros, 
onde a frase deverá ser reordenada em 
cinco linhas horizontais. 
Na parte superior direita da tela o 
tempo é cronometrado, em contagem 





nereenannancaneneanaas 

“AUTOR DO PROGRAMA : + 

* CLAUDIO COELHO LIMAS 

“TITULO: FUNDE A CUCAS 

“DATA: 04/09/1984 « 

onceenanennananaeaaas 

100 DIM AS(6) 

101 DIM B$(6) 

102 DIM Coc6) 

103 DIM De(6) 

104 DIM ES(6) 

110 REM FORMANDO A TELA 

114 TEXT : HOME 

115 VTAB 3 

120 PRINT “DIGITE UMA FRASE DE 2 
S CARACTERES: " 





131 IF TS = “* THEN TS = “ABCDEF 
GHIJKLMNOPORSTUVWXYZ * 


16 


Cláudio Coelho Lima 


regressiva. O desafio maior é reordenar a 
frase no menor período de tempo possí- 
vel. Na parte inferior da tela, de acordo 
com o progresso do jogador, a frase vai 
sendo disposta em sua forma original, 
para melhor orientação. 

Quando ela é totalmente recomposta 
surgem automaticamente impressos na 
tela o tempo gasto e o convite para uma 
nova tentativa. Um dos macetes para 
vencer O desafio é procurar criar frases 
com o maior número possível de vogais 
e consoantes iguais, por exemplo, com 
muitos A e/ou R, pois o remanejamento 


135 HOME 
136 VTAB 1:18 = “FUNDE A CUCA": INVERSE 
HTAB (41 — LEN (19)) / 2: PRINT 

18 

137 NORMAL 

138 VTAB 2: HTAB 1 

10 FORP=1T05 

145 PRINT "nessonensensaneneanas 
eoensneseacacansas 

146 NEXT P 

148 PRINT "osesssseeseanaaesanas 
emseser 


151 PRINT "eesesensannas 45478 





166 DATA 3,9,E,1,D,K,X, "Ns Zoe 


das letras fica mais fácil. A frase deve ser 
digitada no início do programa, quando 
o computador fizer a pergunta. Caso vo- 
cê aperte o ENTER, o que surge no pai 
nel é o alfabeto, incluindo as letras K e 
W. Funde a Cuca foi criado para Apple, 
mas pode ser facilmente convertido pa- 
ra outros equipamentos. Ocupa uma me- 
mória aproximada de 3.840 Kb. 


Cláudio Coelho Lima é estudante do Segundo 
Grau, autodidata e possui conhecimentos de 
BASIC e FORTH. 





170 





171 





172 











175 FORP = 1 TO6 
180 PRINT "onenesencnaneananaaas 
consenenenanananas 

185 NEXT P 

200 REM INICIO DO PROGRAMA 

205 FORT=1 TOS 
206 READ A,B,C,D,E 
210 ASCT) = MIDS (TI 





















215 BS(T) = MIDS 

220 CecT) = MIDS 

225 DS(T) = MIDS (TS,D,1) 
230 ES(T) = MIDS (TS,E,1) 
235 NEXT T 





240 DATA 20,15,13,25,1,6,9,18,235 
14,8,5,2,22,11,17,10,7,21,24 
119,12,3,14,16 
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nd! St6) = ESC1) 540 REM VERIFICACAD DE ACERTO 
245 GOSUB 1 FORT=1TOS S41 FORT =STO1 STER 1 
246 VB = O NeT 542 V$C1) = ASCTI + VS(1) 
247 FOR H = 5000 TO 1 STE IM THEN ASCT) = AS(N) 543 VS(Z) = BSCT) + Ve(Z) 
248 VTAB 3: HTAB 28: PRINT IF M THEN BSCT) = BSCN) 544 V$(3) = CS(T) + VSC3) 
peirimna IF M THEN CS(T) = CS(N) 545 V$(4) = DECT) + VS(4) 
249 DT = PEEK ( - 16384) IF M THEN D$(T) = D$(N) 546 V$CS) = ES(T) + VSIS) 
250 IF DT = 179 THENM = IF THEN ES(T) = ES(N) S46 NEXT T 
s00 NEXT SS0 PS = VO(I) + VEZ) + VSC3) + 
IF DT = 197 THEN SOTO 500 VE(4) + VS(S) 
300 ASLO) = AS(S)IBS(O) = BS(S):C 5Si VTAB 23: HTAB 8: PRINT PS 
E or S(0) = CS(S):DS(O) = DO(S):E SSS IF PS = T$8 THEN GOTO 400 
Ea S(0) = ES(S) 556 FORT = 1 TOS:;VSLT) = ""7 NEXT 
E HT FOR T=STO1STEP -1 T 
s00 N=T S70 IF VB = 1 THEN RETURN 
IF DT IF THEN AS(T) s8o GOTO 290 
Soo IF THEN B$(T) 400 HOME : FORT =1 TO4 
IF DT IF THEN CS(T) 605 FORL = 1 TD4 
320") 1F THEN D$(T) 610 CALL - 198 
e Dr IF THEN ES(T) 615 NEXT L 
320 616 VTAB 13: PRINT * coNG 
IE DT RATULACÕES ttrttttem 
são FORT=1T0S 618 FORP = 1 TO 100: NEXT P 
IF DT GS(T) = ASCT) 619 HOME 
s20 NEXT 620 NEXT T 
IF DT AS(M) = BS(M):BS(M) 630 SPEED= 100 
o SM) = DE(M):DE(M) 635 VTAB 4: PRINT “ MUITO BEM, VO 
Te bt e SM = cm) CE CONSEGUIU ARMAR O *; PRINT 
380 soro soo “TEXTO ("5 T84") COM O“: PRINT 
W DT FORT=1T05 “TEMPO "15000 - Hj". AGORA TE 
Sam S1 G8CT) = ES(T) NTE SER AINDA": PRINT “MAIS 
IF DT NEXT T RAPIDO. 
o ESCM) = DEC(M IDEM) SPEED= 255 
Tr DT SCM) = BSCMSBSCM) = AS(MIZA VTAB 23: PRINT “ APERT 
a SM = G8(m) E UMA TECLA“:DT = PEEK « - 
IF DT FORT=1 TOS 16384): IF DT > 127 THEN 670 
o DT = PEEK ( - 16348) 
Dr INVERSE 650 VTAB 23: PRINT * 
ed VTAB 10: HTAB 16 + T; “; BOTO 645 
AscT) 670 INPUT 8: RUN 
VTAB 11: MTAB 1000 HOME : CALL - 198 
THEN BScT) 1005 SPEED= 255 
VTAB 12: HTAB 1010 VTAB 4: PRINT “ SINTO MUIT 
Ten n cscT) O MAIS SEU TEMPO ACABOU, ": PRINT 
VTAB 13: HTAB “PERCEBO QUE VOCE TEM PREGUI 
THEN M = 5: Goro DS(T) CA DE ": PRINT “PENSAR.": PRINT 
VTAB 14: HTAB “ACHO QUE ESTE JOGO NAO SER 
Ea Bora: 1000 EscT) VE PARA": PRINT "VOCE. TCHAU! 
300 AB(h) = ASC1):BS(6) = B$C1):C Next *3 GPEEDo 295: END 
Sb) = CO(I)IDSCS) DSC1):E NORMAL 


Ud A Ie me 





od fere Toy 
—HEMUS| 


A impressora 
fora de série. 


EL-8000 é tudo que um micro precisa de 
uma impressora. De incrível versatilidade 
a EL-8000 possue: 
* Controle por microprocessador 
Escrita bi-direcional em qualquer cir 
cunstância - procura lógica. 
Imprime em diversos idiomas: inglês, 
francês, alemão, espanhol, etc 
Desenha, faz gráficos, reproduz qual- 
quer imagem que um Micro produza 
em seu vídeo. 
Troca de formato de impressão dentro 
da mesma linha. 
Velocidade de comunicação de 50 até 
9600 BPS. 
Buffer de recepção até 2.000 caracte- 
res. 
Produz diversos tipos de impressão: 
normal, negrito, expandido, sublinha- 
do, sub e sobre-escrito. 
80 a 132 caracteres por linha. Rio de Janeiro - R. República do Libano, 61 - 12º andar - Tel.: (021) - 221-4677 - Telex (021) 30187 
Impressão matricial 9x7 permitindo São Paulo - Rua Frei Caneca, 1119 - Tel.: (011) 284-8311 - Telex (011) 22191 
até 8 vias numa velocidade de 100 Brasília - SCS 02 - Bloco C nº 41 SL. 01 - Tel.: (061) 225-1588 - Telex (061) 1750 
CPS. Em bobina, folha solta e/ou for Porto Alegre - Rua Santa Terezinha, 300 - Tel.: (051) 232-3564 - Telex (051) 2144 
mulário contínuo. Belo Horizonte: Tel.: (031) 222-7809 
Etc... etc... etc Goiânia - Salvador 


SISTEMA DE PROCESSAMENTO DE DADOS E TELECOMUNICAÇÕES 








Teclado BASIC 


A Dynacom está lançando um teclado BASIC acoplável a qualquer 
videogame compatível com o sistema ATARI. O novo teclado permite 
programação de microcomputador em linguagem BASIC, criação de jo- 
o animados e sonoros, programas matemáticos e sintetizações de mú- 


O teclado BASIC vem acompanhado de um cartucho com programa 
de 4 Kb e um manual ilustrado. A sua finalidade, segundo a empresa, 
é eliminar o medo existente nas pessoas do “terrível computador” e 
demonstrar que qualquer pessoa pode manipular a máquina a seu co- 
mando. Outra finalidade é ensinar n princípios da programação BASIC 
a crianças a partir dos seis anos de idade. 

Para a instalação do teclado basta encaixar os seus conectores nos 
respectivos soquetes dos joysticks direito e esquerdo do console e car- 
tucho do programa que acompanha o teclado. O novo produto da Dy- 
ERam pede ser encontrado nas lojas especializadas e magazines por 
Cr$ 122 mil. 


Informática médica na UERJ 


A Universidade do Estado do Rio de Janeiro, que em outubro 
passado realizou o 19 Seminário de Informática, prossegue em 


fevereiro com tema paralelo. Realizará seu 19 esso Brasi- 
leiro de Informática Médica. E simultaneamente, a 12 Mostra In- 
ternacional de Videocassete Médico e o 19 Forum Internacional 
de Demonstração de Equipamentos Médicos. ejabad Us 
pelo telefone 264-8143, ramais 2417 e 2507. 





Miniventiladores Arno 


A Arno está lançando uma linha de miniventiladores que podem ser 
utilizados em computadores, equipamentos periféricos, sistemas de co- 
municação e instrumentos eletrônicos portáteis. O Muffin DC possui 
motor sem escovas o que reduz os níveis de interferência rádio magné- 
tica. O novo miniventilador fornece maior volume de ar que os modelos 
convencionais de corrente alternada, resultando em menor consumo de 
energia. O Muffin DC é ideal para situações onde há necessidade de 
manter a ventilação, no caso de falha e interrupção de fornecimento de 
corrente alternada. 


Cursos da Datamicro 


A Datamicro Informática já tem a relação de cursos que pro- 
moverá durante o mês de janeiro. As aulas serão desenvolvidas 
em sua sede, na Rua Visconde de Pirajá, 547, sobreloja 211, tel.: 
511-0395, Ipanema. |, 

Eis os cursos e os períodos em que se realizarão: "Linguagem 
BASIC Avançada” (2 a 30); “Micro Computador para Crianças" 
módulo 1 (3a 22);“/Microcom 
(4 a 16); “Microcomputador Apli 


para Crianças”, módulo 2 
icado no Cálculo Estrutural" 
(7 a 28); “Linguagem BASIC” (7 a 28); "Programação BASIC” 


(7 a 6/2); “Introdução aos Microcomputadores'' (8 a 31); “Mi- 
crocomputador para Crianças'' módulo 3 (8 a 24); Ah 
de Máquina para o TK” (9 a 30); “BASIC para o Advogado” (9 
RR Rg Aplicado em Métodos Matemát: 

10a 5/2 


Programas Ciberne 


A Ciberne Software/JVA microcomputadores, do Rio de Janeiro, 
está lançando 23 programas para micros com lógica Sinclair e TRS-80, 
sendo 5 deles totalmente idealizados e desenvolvidos no Brasil. Os pro- 
gramas estão divididos em oito fitas cassete; são elas: VALKIRIE, 
MERCADOR DOS 7 MARES, DEFENSOR 3D e SUB-ESPAÇO (jogos 
compatíveis com o Sinclair); APLIC | e ROT |-Plus (respectivamente 
pacote aplicativo e utilitário para os compatíveis com o Sinclair); 
Ear DE VÔO E XADREZ (jogos para os compatíveis com o 

As fitas contêm, entre outros, os seguintes programas: Patrulha Ar- 
mada, Guerrilha Cósmica, Corrida Maluca, Cavernas de Marte, Assalto e 
Pintor Maluco (jogos); COMP-CALC (versão do programa Visicalc); 
COMP-ARQ (gerador de arquivo de dados); COMP-TEXTO (editor de 
texto) e S.0.G. (Sistema Operacional Gráfico). Este sistema é, na ver- 
dade, uma linguagem gráfica com mais de 27 rotinas conjugadas que 
dão muitas opções de uso e combinações, além de ser feito em código 
de maquina. 

O endereço da Ciberne/JVA é: Av. Graça Aranha, 145 — S/Loja 
nº 1, CEP: 20.030. 
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1-9000 da Itautec 





Itautec fechando o ano 
com lançamentos 


A Itautec fecha o ano de 84 
com um resultado final de ven- 
das entre 80 e 90 bilhões de cru- 
zeiros e uma produção média de 
500 micros por més. Segundo 
Carlos Eduardo Correa da Fon- 
seca, diretor superintendente da 
empresa, o resultado de 84, des- 
contando-se a inflação, foi supe- 
rior em cerca de 100 por cento 
ao fechamento de 83. E a em- 
presa fechou o ano com o lan- 
çamento de mais dois equipa- 
mentos, o |-9000, o primeiro 
computador de médio porte (32 
bits) fabricado no Brasil; e o 
1-7000 PCXT, um microcom- 
putador de 16 bits, compatível 
com o PC da IBM. 

O 1-9000 foi desenvolvido 
com base na tecnologia adqui- 
rida da empresa Formation, uma 
companhia americana de enge- 
nharia, e o equipamento é to- 
talmente compatível com os 

adores de grande porte 
da IBM. A Itautec já investiu 
cerca de 3 milhões de dólares, 
de um total de 75 milhões que 
serão investidos nos primeiros 
quatro anos de produção da no- 
va máquina. Segundo o diretor 
superintendente da Itautec, o 
processo de nacionalização do 


1-9000 deverá ser concluído em 
meados de 85, e hoje uma equi- 
pe já está trabalhando nos Es- 
tados Unidos no desenvolvimen- 
to da segunda geração do |-9000. 
Para Carlos Eduardo Correa da 
Fonseca, uma das grandes vanta- 
gens do |-9000 será sua utiliza- 
ção como equipamento comple- 
mentar para clientes que já pos- 
suam computadores de grande 
porte da IBM, para a realização 
de processamento distribuído. O 
|-9000 custa, numa configura- 
ção com 8 Mbytes, duas fitas, 
controlador de comunicação de 
dados e uma impressora de mil 
linhas, aproximadamente 500 
mil dólares. 


Para o micro de 16 bits, o 
PCXT, lançado na Feira de In- 
formática no Rio de Janeiro, foi 
feito um investimento de cerca 
de 3 milhões de dólares e no 
ano de 85 serão colocados no 
mercado por volta de mil unida- 
des dessa máquina. 

A Itautec vem atuando tam- 
bém na área de videotexto e a 
empresa fornece hoje à Telesp as 
estações editoras de videotexto, 
além dos terminais residenciais 
para acesso ao sistema. 
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Impressora 
matricial 
da Expansão 


A Expansão Informática S. A,, 
que detém a licença de fabricação 
das impressoras Dataproducts no 
Brasil, lançou na Feira de Infor- 
mática a impressora matricial de 
impacto M-340X, que tem a velo- 
cidade de 340 CPS e capacidade 
de imprimir até 132 colunas. A 
M-340X tem matriz de 7x7, é bi- 
direcional com procura lógica, 
possui interfaces RS 232-C e para- 
lela tipo Centronics, e tem ainda 
um conjunto de 128 caracteres. 


Fitas 
impressoras 
da Memphis 


A empresa paulista Memphis 
está lançando uma nova geração 
de fitas impressoras para compu- 
tador, as Extralife. O produto é 
colocado no mercado após dois 
anos de pesquisas para elaboração 
de seus componentes, como cartu- 
cho, base, pigmento, solda, mon- 
tagem e desempenho, investimen- 
to que custou à empresa US$ 1 
milhão. 


As Extralife foram criadas tan- 
to para micros como para com- 
putadores de grande porte e po- 
dem ser utilizadas por todos os 
equipamentos existentes no Bra- 
sil, Já este ano, parte da produ- 
ção da nova linha de fitas da 
Memphis será Mrportaçãa, pára pa paí- 
ses da América Latina, África 
Sul e Estados Unidos, onde pre- 
enche todas as exigências reque- 
ridas pelo governo americano 
quanto à qualidade e resistência. 


Medidata 
lança o 
supermicro 
M1001 


Com o lançamento do super- 
micro M1001, a Medidata con- 
clui uma nova etapa de cria- 
ção, iniciada em 1978. O novo 
produto está integrado a uma fa- 
mília de computadores compatí- 
veis e que não deverá se alterar 
pelo menos nos próximos três 
ou quatro anos, informam dire- 
tores da indústria. 


O M1001 foi desenvolvido 
visando não apenas as pequenas 
e médias empresas, mas tam- 
bém as grandes, cujo objetivo a 
curto prazo é descentralizar seus 
sistemas de processamento de 
dados. Ele surge, segundo Luís 
Carlos Dantas, gerente de Su- 
porte de Marketing da ço 

“com excelente relação preço, 
desempenho devido à E cod 
de tecnologia de microprocessa- 


Rodando em sistema opera- 
cional MUMPS, o M1001 atende 
simultaneamente a diversas esta- 
ções de trabalho, aceitando até 
10 terminais, o que resulta em 
melhor aproveitamento de peri- 
féricos. Sua UCP é baseada no 





M1001 da Medidata 


microprocessador Z8000, da Zi- 
log, de 16 bits, o qual pode ma- 
nipular dados de 32 bits. Sua 
memória é de 512 Kb com pas- 
tilhas de 67 Kb ou 2 Mb com 
pastilhas de 256 Kb. Ele suporta 
dois disquetes de 5 1/4”, face e 
densidades duplas com capacida- 
de individual de 320 Kb e três 
discos rígidos de 5 1/4" tipo 
Winchester, de 15 Kb cada. No 
back-up emprega fita romã 
em cartucho tipo Streamer co! 

capacidade de GA 25 Mb. O Ala 








binete é vertical, de dimensões 
reduzidas. 

Para lançar o M1001 a Medi- 
data investiu no projeto, que du- 
rou dois anos, Cr$ 1,8 bilhão. 
Em sua configuração de 256 Kb, 
um disquete, um disco rígido, 
terminal de vídeo e uma impres- 
sora de 100 CPS, o custo do 
equipamento é de 3.200 ORTN. 
Com o novo equipamento são 
oferecidos conjuntos de pro- 
gramas aplicativos a partir de 
500 ORTN. 


Novo terminal Videotek 


Um terminal de vídeos a cores, VTK 2000C, 


Eletrônicos. O modelo é apresentado em oito 
cores diferentes, a tela tem 80 caracteres por 


























48 linhas, perfazendo um total de 3.840 carac- 
teres na tela. O modelo apresenta 

reverso, alimentação de 110/220 Volts e fre- 
quência de 60 Hz. 


ainda vídeo 


























STRINGS 























€ A Appletronica Computadores, de São Paulo, está oferecendo cur- 
sos de introdução à Informática e BASIC |, com várias opções quanto a 
duração e dias de aula. Informações pelo tel.: (011) 241-9833. 6 A 
Cooper & Lybrand, empresa de auditores independentes e consultoria, 
além de orientação de compra e instalação de hardware e software vem 
atuando no sentido de orientar as empresas na fase de conversão dos da- 
dos de sistemas existentes (manuais ou computadorizados) para micro- 
computadores. € A Anamed, indústria paulista, acaba de lançar um es- 
pirômetro computadorizado, um eletrocardiógrafo e um sistema de re- 
gistro de dois canais. € A 3M firmou contrato com a NASA para rea- 
lizar uma série de experiências espaciais, tais como: desenvolvimento de 
filmes de sensibilidade ainda desconhecida e cristais de espessura micro- 
métrica que, segundo a empresa, darão um impulso ao desempenho dos 

computadores. € A Micro Rei Informática, de São Paulo, está lançando 
o programa Controle de Aplicações Econômicas, que coordena investi- 
mentos em ações, ouro, gado e dólar. O programa realiza análise das va- 
riações diárias dos preços pelo computador. € A Lojicred Universitá- 
rio promove mensalmente cursos de programação COBOL, BASIC, 
Digitação e Operação de Sistemas 4341. A divisão de Cursos Especiais 
oferece cursos de VSAM, CICS e Sistema de COBOL 


Aprimoramento 
(SAC). Maiores informações à Av. Duque de Caxias nº 401/19 andar, 
tel.: (011) 234-7855. € A ADP Systems, complementando sua linha de 
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cursos na área de Informática, está introduzindo os cursos de BASIC 
Il, COBOL 80, Visicalc e Word Star, com turmas sistemáticas e uso in- 
tensivo de micros. Maiores informações pelo tel.: (011) 223-7511. 
€ A Fundação Petrônio Portella, de Brasília, está lançando um curso de 
Informática Jurídica por correspondência. O curso pretende dar uma 
visão geral das aplicações do computador no Judiciário, Legislativo e no 
trabalho do advogado. Informações podem ser obtidas na própria Fun- 
dação: Ministério da Justiça, Esplanada dos Ministérios, 70.064, Bras(- 
lia, DF. € A Prológica está comercializando dois programas de uso do- 
méstico para o CP-400 Color. Um dos programas iza a lista de 
compras do supermercado, o outro reúne várias receitas culinárias. O 
BKP-60 é a unidade de fita cartucho lançada pela Compart, na Feira de 
Informática. Projetada para servir como back-up de discos Winchester 
de 10 a 200 Mb, a BKP-SO. está disponível em formato de 5 1/4", com 
capacidade de 45 e 60 Mb, ad pr il io e A 
movimentação do meio (cartucho de 1/4") durante a operação. € 
Percomp Periféricos e Sistemas também apresentou, na Feira, jd 
magnéticos rígidos Winchester de 10 Mb. Es discos apresentam, entre 
outras, as seguintes características: meia altura (41,3mm); dimensões 
reduzidas (203mm de profundidade); posicionamento por motor de 
passos; capacidade formatada de 10 Mb por unidade, 8192 por trilha 
EDORIO por Astor: 1224 trilhas e 4 cabeças. à 
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bits A Informática na Engenharia 


Não se pode dizer que a Informática, na 
área de Engenharia, não tenha apresentado 
progressos de um ano para outro. O que se po- 
de afirmar é que as novidades não foram vistas 
na IV Feira Internacional, no Riocentro. A opi- 
nião é de Luís Antônio Pereira, assessor técni- 
co de MS. Ele percorreu a exposição e disse 
não ter encontrado, em termos nacionais, na- 
da que motivasse sua curiosidade. 

Pereira não chega a atribuir à falta de inte- 
resse dos programadores brasileiros a inexistên- 
cia de software em demonstração. Segundo 
ele, o investimento para um programador f(si- 
co apresentar seu produto numa feira é eleva- 
do em relação ao risco de retorno. Quanto aos 
programas voltados à Engenharia, criados por 
empresas, o assunto é mais complexo, afirma 
Pereira. 

Ele analisa a questão a partir de problemas 
levantados durante o seminário Informática e 
Engenharia, realizado simultaneamente à Feira. 
Na ocasião, apresentadores e debatedores dis- 
cutiram a falta de programas técnicos dispon(- 


O computador 
animando o desenho 


veis e O comportamento das empresas que não 
repassam o software que criam a outras empre- 
sas nem o colocam à venda por intermédio de 
software-houses. Pereira esclarece: 

— À criação de programas é demorada e de 
elevado custo. São geralmente específicos, pa- 
ra determinada aplicação, cuja utilidade por 
parte de outras empresas seria mínima. Vendê- 
lo, além de não apresentar o retorno suficien- 
te, significaria “entregar de presente” um tra- 
balho ao concorrente. Mesmo assim, um pro- 
grama específico implica no fato de ser roda- 
do por quem entenda, um analista ou um téc- 
nico, e a empresa não poderia garantir o apro- 
veitamento ou não do programa por parte de 
quem não o entendesse. 

Como ficou comprovado, na feira não ha- 
via programas disponíveis, mas eles existem, 
garante Pereira. São criados por engenheiros 
que se dedicam a programar cálculos numéri- 
cos, estruturas, economia de material etc. Um 
trabalho divulgado boca-a-boca, sem publici- 
dade. 


Atraindo um público de todas 
as idades, durante a IV Feira Inter- 
nacional de Informática, a Oficina 
de Desenho Animado com o Uso 
do Microcomputador mostrava no 
mezzanino do Riocentro como é 
possível a conciliação de dois re- 
cursos que para muitos podem pa- 
recer díspares: o computador e a 
criação. Com o simples toque em 
teclas do microcomputador que 
determinavam a direção do traça- 
do, crianças das várias escolas vi- 





espanto era ainda maior quando a 
imagem criada no micro era proje- 
tada no vídeo cassete, aparecendo 
numa tela grande de televisão. 


A Oficina, dirigida por Daniel 
Schorr, com formação em comuni- 
cação visual, e Marcos Magalhães, 
cineasta conhecido pela realização 
do desenho animado “Meow”, pre- 
miado no Festival de Cannes, fun- 
ciona na Rua dos Artistas, 199, 
no bairro carioca de Vila Isabel. 


Hoje a Oficina de Desenho Anima- 
do tem em andamento três proje- 
tos básicos: a produção de filmes 
didáticos sobre introdução ao mi- 
crocomputador; a pesquisa da lin- 
guagem de desenho animado com 
utilização de computador; e o en- 
sino da técnica de desenho anima- 
do e a divulgação do desenho ani- 
mado nacional. Na área de produ- 
ção de filmes didáticos a Oficina 
de Animação já tem pronto o pri- 
meiro vídeo-piloto, de uma série 
de cinco que têm por objetivo a 
iniciação no raciocínio do compu- 
tador. O roteiro dos outros quatro 
filmes já está pronto a espera deum 
patrocinador. E na pesquisa da lin- 
guagem do desenho com o uso do 
computador como recurso expres- 
sivo, já foram desenvolvidos dois 
programas em linguagem BASIC, 
“Traça” e “Edita”, para iniciação 
das pessoas na arte do desenho 
animado. Maiores informações so- 
bre a Oficina de Animação podem 
ser obtidas pelo telefone (021) 
286-9877. 


E o nível da qualidade da Engenharia pode 
ser avaliado pelo grau de utilização da Infor- 
mática em seus projetos. Este foi o consenso 
dos participantes do seminário Informática e 
Engenharia. E ela eleva em apenas 0,5% o va- 
lor do produto final, economizando tempo e 
material. 


Mas a grande parte do problema de a Enge- 
nharia não dispor de uma infra-estrutura mais 
avançada neste setor surge já na formação do 
profissional. Caso não se interesse pessoalmen- 
te pelo assunto, o engenheiro deixará a vida 
académica completamente despreparado, afir- 
ma Pereira. 


São poucas, no Brasil, as faculdades que 
dispõem de um Centro de Processamento de 
Dados ou um laboratório aberto a seus alunos. 
Às vezes ocorre de o estabelecimento possuir 
um ou dois microcomputadores, mas empre- 
gando métodos didáticos obsoletos ou profes- 
sores despreparados pedagogicamente. 





Novo Naja 


A Kemitron acaba de lançar o seu micro compatível com CP/M: o 
Naja 800, que, utilizando o microprocessador Z-B0A, também é total- 
mente similar à linha TRS-80 (modelos Ill e |V). O novo produto da 
empresa mineira apresenta as seguintes características em sua configura- 
ção mínima: 128 Kb de memória RAM e 14 Kb de EPROM para o inter- 
pretador BASIC; monitor de 12”, com possibilidade de operar em três 
formatos diferentes e também em modo normal ou reverso (selecionável 
por software); teclado (tipo máquina de escrever) com 70 teclas e um 
teclado numérico reduzido; dois drives de 5 1/4" embutidos na UCP e 
ainda cinco síots para conexão de expansões. 

O Naja 800 pode também ser equipado, opcionalmente, com placa 
de alta resolução grafica (640x240 pontos), disco tipo Winchester, inter- 
face para comunicação serial e sintetizador de voz. Mas, sem dúvida, 
uma das grandes novidades do recém-lançado equipamento é que ele já 
é compatível com o CP/M 3.0, da Digital Research. 


Caneta fotossensível 


A BIT - Serviços de Processamento de Dados Ltda., empresa de Por- 
to Alegre, acaba de lançar no mercado uma caneta fotossensível. A ca- 
neta, ao interagir com as cores emitidas pelo vídeo de um televisor ou 
de um monitor ligado a um computador, digitaliza os vários compri- 
mentos de ondas para que a CPU interprete os dados através de um 
software. A nova caneta fotossensível já está sendo comercializada e seu 
preço é de Cr$ 49 mil e 900. 


Calculadoras 


Diacon leva Informática 
a médicos e dentistas 


A Diacon Informática, de São Paulo, está lançando um con- 
junto de programas que permitirá às clínicas médicas e odonto- 
lógicas substituirem as tradicionais fichas de pacientes por mo- 
dernos registros em discos, bem como controlar compromissos 
através de uma agenda eletrônica. A Diacon também tem dispo- 
níveis módulos específicos para administração financeira desse 
ramo de serviço, seus convênios e de estoques. 

De acordo com a Diacon, o ponto alto do conjunto é um pro- 
grama que permite efetuar pesquisas clínicas cruzando uma gama 
muito ampla de informações, obtendo os resultados tanto na tela 
do micro como impressos. A Diacon personaliza programas con- 
forme as características específicas de cada profissional e oferece 


treinamento na própria clínica. Os preços do 


serviço, programas 
e treinamento variam, a partir de 60 ORTN. Outras informações 
poderão ser obtidas pelo telefone (011) 572-6168. 





Os sistemas 
da Stalo 


A Stalo, indústria do Paraná, 
criada em maio deste ano, 
desenvolve em sistema de OEM, 
como “System House”, três linhas 
de produtos: Stalo SMU, um 
micro monousuário, multi-tarefas; 
o Stalo STS, micro multiusuário 
eo Stalo NET SRE . Duas 

outras linhas de produtos da Stalo 
são os sistemas aplicativos MIG 
(integrado gerencial); INDICARE 
(análise econômico-financeira e 
patrimonial dinâmica) e 
DECISOGRAMA (estratégia de 
gestão por projetos e simulações) 
e software básico desenvolvido 
pela Microbase. 


de bolso 


A Sharp está colocando no mer- 
cado três novas calculadoras de 
bolso, todas com dimensões redu- 
zidas. Os modelos EL 863 e EL 345 
funcionam com célula solar, que 
substitui as baterias ou pilhas con- 
vencionais. A célula permite o fun- 
cionamento normal da calculado- 
ra não somente com energia solar 
mas também com qualquer tipo 
de luz artificial. O modelo EL 860, 
tipo cartão de crédito, pesa apenas 
39 gramas e funciona com bateria. 
As três novas calculadoras reali- 
zam as quatro operações básicas, 
e ainda raiz quadrada, potencia- 
ção, porcentagem e cálculos com 
memória. 
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complexo for um sistema, 
mais sólida e contiável 
deve ser sua base. 
Quando você tem um 
micro da Unitron como 
princípio inteligente, você 
também tem a certeza de 
que o atendimento de 
suas necessidades em 
processamento de dados 
está assegurado. Ea 
palavra de quem 
trabalha continuamente 
para oferecer uma 
tecnologia sempre atual 


ao usuário. É o que os fatos demonstram 

Na sua categoria, o Unitron andou sempre na 
trente. Além de contar com uma infinidade de 
programas, testados e aprovados, e os mais 





diversiticados acessórios 
de expansão — entre 
módulos, interfaces e 
periféricos -,o Unitron 
agora pode ser 
conectado, via telefone, a 
todas as redes existentes: 
Aruanda, Cirandão, 
Interdata, Cyber, 
Videotexto, CMA, etc. Ou, 
então, às redes 
particulares, acessando 
outros micros ou 
comunicando-se com 
computadores de grande 
porte, na função de 
terminal inteligente. Portanto, se você deseja um 
processamento de dados com qualidade, tale 
com nossos revendedores autorizados. Para cada 
caso, uma solução inteligente. Do princípio ao tim 
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Um crime monstruoso ocorre numa mansão. Você deve descobrir o assassino, 
a arma e o local da tragédia. Este é um desafio para... 








O super-detetive 


programa Detetive é segura- 

mente uma boa opção para os 

fins-de-semana chuvosos. Ba- 

seado no famoso jogo de mes- 

mo nome fabricado pela Estrela, o jogo 

foi desenvolvido em um equipamento 

CP-200, embora seja inteiramente com- 

tível com os demais micros da linha 

inclair, desde que com um mínimo de 
16 Kbytes. 

O programa é auto-explicativo e per- 
mite de um a cinco jogadores. Um maior 
número de jogadores torna o jogo mais 
interessante, e recomenda-se, a exemplo 
do jogo original, o uso de lápis e papel 
para um melhor controle das suspeitas. 


O JOGO 


O crime dá-se numa mansão, em qual- 
quer de seus compartimentos. O com- 
putador irá escolher aleatoriamente um 
criminoso, a arma e o local do crime. 
Você deverá descobrir estes três itens 
para sagrar-se vencedor. 

Seu método de investigação é por ex- 
clusão. Isto porque o computador distri- 
bui aleatoriamente entre os suspeitos 
(morotista, camareira, Blanche, Dalas, 
Lane, Marfim e o mordomo) uma carta, 
contendo ou não o nome de um suspei- 
to; outra contendo ou não uma arma 
(revólver, corda, faca, gás e veneno) e 
uma terceira carta contendo ou não um 
compartimento da mansão (quarto, sala- 
tv, hall, estúdio, salão, cozinha e serviço). 

Você deverá investigar o crime indo 
para o local suspeito, através de jogadas 
com o dado eletrônico (lançado pelo 
computador), e perguntando aos habi- 
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Qualquer um dos compartimentos da mansão 
pode ser o local do crime... 


tantes que encontrar se, dentre as cartas 
que possuem, está determinada arma e 
determinado suspeito. 

Como o computador sorteia um lo- 
cal, uma arma e um criminoso e os re- 
tira do jogo, você, por eliminação das 
cartas que cada suspeito possui, irá, ine- 
vitavelmente, desvendar o crime. Por 
exemplo, se nenhum dos sete suspeitos 
possuir a carta contendo o nome MOR- 
DOMO, é porque ele é o assassino; se 
nenhuma carta contiver a arma FACA, 
é porque ela foi o instrumento mortal; 
e se nenhum dos locais explicitados nas 
cartas encontradas for o SALÃO, pode 
contar que foi lá que o crime ocorreu. 


DIGITAÇÃO 


— Carregue o MICRO BUG na memória 
do micro e crie uma linha 1 REM 
com 900 caracteres. Crie também 
uma linha 2 REM sem nenhum cará- 


ter (esta linha serve apenas para evi- 
tar problemas na listagem da linha 1). 

— Digite o Bloco Assembler e no final 
retorne ao BASIC. 

— Digite a listagem BASIC do progra- 
ma, prestando muita atenção para 
não errar, e grave uma cópia em fita 
cassete para evitar aborrecimentos. 

— Rode o programa e tente descobrir o 
misterioso assassino... 


Alberto Cezar de Carvalho é engenheiro civil, 
formado pela Universidade Federal de Juiz de 
Fora. É professor de Processamento de Dados 
e de Fortran, respectivamente no Colégio Téc- 
nico da Universidade Federal e no Colégio Po- 
litécnico Pio X1l, ambos em Juiz de Fora. Le- 
ciona ainda Estradas e Mecânica dos solos no 
Colégio Técnico da Universidade. Possui um 
CP-200, no qual desenvolve programas nas 
áreas de Engenharia e Lazer. 


Bloco Assembler 


SUPLSÓOSSSSTUNO 


o 
1 
e 
o 
8 
8 
8 
o 
o 
2 
o 
2 
4 
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CTT" E 


ESQUIRE 


ACOMPUMICRO 
JA TEMO 
MICROENGENHO 2. 


A Compumicro é a única empresa do Rio que comercializa 
exclusivamente micros para uso profissional, em um amplo e confor- 
tável escritório. 

Com uma equipe de vendas formada somente por profissio- 
nais de informática, a Compumicro vem se destacando como uma 
das maiores e mais bem preparadas empresas do setor. 

Isto se deve ao fato da Compumiicro oferecer um atendimento 
altamente especializado, só comercializando equipamentos de qua- 
lidade comprovada. 

Como um sucesso puxa o outro, a Compumi- 
cro coloca a sua era vai o Microengenho 2. 

O único micro computador nacional totalmente 
compatível com APPLE Ile americano. 

O Microengenho 2 gera caracteres em portu- 
guês maiúsculos, minúsculos e acentuados a ir 
do teclado. Pode ter resolução gráfica de 107.520 
pontos no vídeo (dobro do APPLE II Plus). Eainda 
possibilita o uso de uma placa de modem 12754A, 
operando em modo FULEDUPLEX (cirandão) e 

“DUPLEX (MicroxMicro) substituindo o modem 
extemo convencional. 

Venhaa Compumicroe comprove este su- 
cesso pessoalmente. 

Compumicro. O melhor em micro pelas 
melhores condições. 


SUCESSO 
PUXA SUCESSO. 


AR, pm, 


SPECTRUM COMU nan 


, O U lessU Ns 

INFORMÁTICA EMPRESARIAL LTDA. 

End.: Rua Sete de Setembro, 99- 11.º andar - Tel.: PABX (021) 224-7007 
CEP 20050 - Rio de Janeiro/RJ]. 












































O SUPER DETETIVE 


Edições 


PUBLICAÇÕES PARA COMPUTADORES 


Você não pode deixar de possuir 
os seguintes livros: 












MICROKIT 
LINHA SINCLAIR-TES2, 83, 85, GP200 E OUTROS 





curso de basic 


RRRRREA! 






16651 
16663 
2 


REVOLVER 
CORDA 
FACA 
Gas: 
VENENO 
(RND+10) 

S THEN GOTO E2 








DE DOM DO 






DEDOS 
FORO O et po papa pa DD TD) 





CURSO DE BASIC = VOL,I Cr$ 130000 
Teoria, exemplos e exercícios resolvidos, 

explonados em 18 aulas, oferecendo uma abor- 

dagen simples e direta. Eus livro didático, 


CURSO DE BASIG = DOL.2 Cr$ 11 350,00 
Programação avançada 

Complementa o livro Curso de Basic - Voll 
e ensina como desproteger programas da linha 
Sinclair; copiar fitas e como usar o Hi-speed 
no TKBS e CP208. 


LINHA APPLE = COMPATÍVEIS COM APPLE/TE2008 















s(K) 
NAO TEM 













ARLOS ALBERTO C. ABREU 


77 programas 
À Eden ms programa 
appie comerciais 
da linha 


Dara pequena empresa 






[ms 


77 PROGRAMAS PARA LINHA APPLE Cr$ 15.300,00 
Atraves de JOGOS e PROGRAMAS EDUCATIVOS 
você será induzido a pensar, resolver proble- 
nos, e tomor conhecimento de como poderá 
usar bem o computador, divertindo-se! 


sE THEN LET 







=4 THEN LET 






=T THEN LET 






























































Cep.28838 - Rio de Janeiro - R.J. 


PROGRAMAS COMERCIAIS DA LENHA APPLE Se FOR 
A > aú 2 NPUT (NI 
Para Pequena-Espresa Cr$ 17 306,00 DOR PRINTS? CNAS UNS4567 
Traz a listagem completa dos programas 1 Fio 
como: Mala-direta, Controle de estoque e 2sé FOR Nai TO 20 
Contas a receber e a pagar. Faca seu pedido ê70 GOSUB 155 
a! 271 PRINT Dad 738 
agora. 272 FOR N=1 2 740 
Es NERT N 8soi cis 
2? L B02 PRINT AT 10,7 B 
— AREMÇOS escolha aqui sua opção: — sos BIN ss(705) 20; R$ (5) Tas 20 Ci PERA E cs 
aqui sua opç ( 
e sua DO; | Sii FOR N=1 TO 705 8e3 cOsuB eso 
| Se Eae o (NERO 810 For Nz1 TO 7 
; , Ni N ( 7a” T 
Curso de Basic-Vol LlCurso de Basic-Vol2 | Si FOR N=1 TO 32 ECROTDT SNS OS ARTRIO TENS: TH 
iai S18 LET SSiNi="a” 814 PRINT AT 10, CSN 
77 Programas Programas toners 520 CET SEINHS7S) 816 GOTO sao dana 
Sez LET SS(N+320) e 830 PRINT AT 10,5;cg(8) 
| S48 NEXT N 840 IF S(N,1)<=0 THEN PRINT TAB 
SSo FOR N=33 TO 641 STEP 32 15, "NAO TEM 
SS2 LET Ss(N)="]" Bse IF S(N,1)>0 THEN PRINT TAB 
| SS4 LET S$(N+31 m 1S;ASIS(N,1) 
a SS6 LET S$(N+10) 845 IF S(N,2)>0 THEN PRINT TAE 
| 558 LET SS(N+15) S;LS(S(N,2) 
— E e À doado " er a ) <«=0 THEN PRINT TAB 
; A : T N EN 
Envie ur cheque nominal para ATI Editora Ltda. | S70 LET S$(337)=" * 847 IF Sin 3) >0 THEN PRINT TAB 
Ay. Presidente Nilson, 165 grupo 1216/1216 | Bis CRF UNTN ns Dad as == 
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Ro nas $ <=0 THEN PRINT TAB 


SOSus Md 


FIM 


PRINT ar 21,25, HR . 
EL THEN GOTO ses 


FOR Nai TO QUANT 

LET CIN)=INT (RNDs704) 
Ea CIN)<=0 THEN eo 210 
pI” SS(CIN) +41) <>" * THEN 
LET SS(C(N)+1) =CHR$ 
PRINT AT INT (C(N)/32) 
((C(NI-1) 7/32) +82; CHRS 


NEXT N 
sLOW 

IF INKEvs= 
RETURN 


36 CLS 
7 GOSUB 2565 
PRINT &T 


THEN GOTO 934 


NPU 
s.0 IF xs 5“ THEN GOTO 950 
942 IF VíIIi=i THEN GOTO 3200 
B44 LET VíII)=1 
945 RAND USR 16663 


945 GOTO 952 

950 LET R=0 

951 GOTO 2400 
SELIC OSS 15,5; MEEESNSICCOS 


4 rErs= THEN GOTO 954 
95S IF INKEy$="S" TMEN GOTO Ra0 


856 IF INKEYS="5" AND C(II 
AND C(II) 
TMEN GOTO 


AND INKEY 
AND INKEY 


THEN GOTO 228 
958 IF INKEYS= 


60 IF INKEYS "s 
AND INKEY8<:"7 
e TEN GOTO 954 
RAND USR 16663 
PRINT AT INT (C(II)/32 
NT (4C(II)-2)/32) 4385" 
LET SS(C(II)j+1)=" 
IF CíII)<=0 THEN GOTO 954 
IF Ss(D+1) THEN GOTO 


LET SS(D+1) =CHRS (I1+155 

LET C(II) =D 

PRINT AT INT (CItII)/32),€ 
(t4C4IT) -1)/32) +32; CHR$ 


UERA 
16651 


5,2; “QUARTO; AT 
“SALA-TU”; A 


SALAO", AT 
"COZINHA 


to- 


- mio 
DOVPROrNONHOS 


= 
AT 11,10 


:AT 9,12 


| a 


Rs: 
11860 MT E 


LET D=C(II)-1 

LET K=K+41 

IF K>R TMEN GOTO 2340 
Goto 365 

LET D=C(II)+32 

Goto 2220 

LET D=C(II)-32 

Goto a22o 

LET D=C(II)+1 

Raro azao 


LET k=0 

IF INREV s=" 
cs 

Goto sao 
cls 


* THEN GOTO 2355 
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NPU 
2446 IF CEN RE 3 THEN GOTO 2440 


2 L 
2472 PRINT AT 4,11;C81X 
2474 LET 
2476 GOTO 2490 
2480 NEXT x 
2481 IF us (8. TO LEN US) THE 
N GOTO 2440 
2482 PRINT AT 4,11;U8 
neae LET usT 
PRINT &T 


e 
o 
o 


man 
nn 
= 
am 


NU DANILO CD DO O DO 


11 THEN GOTO 


LETRAS 
ASIX,L) THEN GOTO 


10 “sASix 


MMA NAO A 


TO LEN Y$8) THE 
rs 


DANO GADNS UNS MI DO 


2 
$ 
2 
E 
ê 
2 
2 
1 
N 
2 
2 
2 


joven nen 


11/32) 
(TC UIT) -1 


=20 THEN 
THEN GOTO 


taty 


=9 THEN G 


=20 THEN 


mm E 
om Ma Tia MEM Ta E MTO MA 


mom 


Dando Nu 


=10 THEN 
=23 THEN 


=31 THEN 


10 THEN 
=23 THEN 


=31 THEN 


DE EA DO A 


E 


as 
L$(X,L) THEN GOTO 


INT AT 10,11;L8(X 
To 2698 

NEXT x 

ro AT 10,11,08 


5 
2720 ie LEN Z8<3 THEN Goro 2710 
2730 FOR x=1 TO 
2731 IF Z8( À) aBe ix, 1) THEN LET L 
ETRAS=LEN Z$ 
792 IF Z$(i)c>C$ix,1; 
Boo 


2740 FOR L=1 TO LETRAS 
ator ZS(L) <CSIX,L) THEN GOTO 


THEN SOTO 


LET 
PRINT AT 20,10," 
coro 2810 

NEXT X 


“, 0800 


1 IF Z6<»C8(8, TO LEN Z$) THE 
o 270 

10;" “;zs 

TO LEN US$) THEN 
TO LEN W$) THE 


2S06 IF US=CS (8 
5 E cs(8 


LE =T 
Zsii FOR N=1 TO 15 
tt NEXT N 


THEN 
THEN 1 


on 
DO Do 


a) 
pol 


Goto 3309 
LET K=INT. (RND+S) 
EN) =K 


FOR N=1 TO 7 
IF AiN)<=0 THEN GOSUB 3070 
NEXT N 
em” 31350 
M=1 TO 7 
FOR X=1 TO 7 
IF A(X)/=M THEN GOTO 3120 
NEXT 
AIN) =M 


LET 
coTo 3040 


8 La DO det 10 OD SOR UA Ee Lo to 
pd) Sea nt de 


IF II>OUANT TMEN soro se” o 
IF UI Io O THEN 
PRINT 


DONDERE==OG99999990004 0) 


e Loo poi 


j 


DRTATO] 


AT 12,9;08tII) 
Goto 937 
O LET II=0 
FOR N=1 TO QUANT 
LET VINI =O 
NEXT N 
GOTO 3210 
O FOR N=1 TO 40 
NEXT N 
LET U(II)=1 
GOSUB 3350 
FOR N=1 TO QUANT 
IF U(N)=0 THEN S0TO 3200 
NEXT N 
LS 
PRINT AT 12, ar > QUER JOGAR O 
PARTIDA 13/ 
INPUT Z$ 
IF Z THEN CLS 
IF Z8=" THEN GOTO 23 
Goto soe 


LET SS(C(IIj+1)=" 

RAND USR 16663 

PRINT AT INT tC(II)/32) CI 
DENT ((C(II)-1) 7/32) +32; 
3365 RAND USR 16651 
3370 RETURN 
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Se você tem um micro da linha TRS-80 |! ou Ill, com 16 ou 48 Kb de RAM, 
teste sua habilidade combatendo os terríveis Fagocitons 





r. Kasklin e os 
Fagocitons 


outor Kasklin e os Fagoci- 

tons é um jogo em BASIC 

de aproximadamente 4 Kby- 

tes, sem REMs, com três pe- 
quenas sub-rotinas em linguagem de má- 
quina. Estas sub-rotinas posicionam-se 
no topo da memória do seu micro e ser- 
vem para criar efeitos especiais, quase 
impossíveis de serem produzidos pelo 
BASIC devido à sua lentidão. 


A primeira sub-rotina (A = USR (0 + 
256 * N)) tem por função a emissão 
de sons pela porta de saída do cassete, 
aceitando em BASIC um valor numérico 
que determina a nota a ser tocada e deve 
estar entre O e 127. A segunda (A = USR 
(1)) inverte todos os caracteres gráficos 
do vídeo e transforma os espaços em 
branco em espaços inversos. A terceira e 
última sub-rotina (A = USR (2)) vai de- 
crementando cada caráter até que todos 
sejam caracteres de espaço (CHR $(32)), 
dando a impressão que o vídeo está se 
derretendo. 


O objetivo do jogo é a eliminação do 
máximo de invasores — os Fagocitons — 
possível. Você inicia o jogo com quatro 
vidas. Ganha uma a 0000 der 
completados e perde uma a cada Fagoci- 
ton que aterrissa ou quando são dispara- 
dos-mais de cinco tiros sem sucesso con- 
tra o mesmo invasor. Observe que seu 
canhão anti-aéreo de laser tem movi- 
mentos mais amplos do que os dos inva- 
sores, isto é, você pode pular de um lado 

outro do vídeo, enquanto que os 
res limitam-se a descer aleatoria- 
mente. 


Rui Ribeiro de Bastos 





Cada invasor ao ser destruído tem 
um valor específico determinado pelo 
ASC (primeiro caráter), decrescido de 
duas vezes o número da linha em que 
foi eliminado. A cada jogo é criado um 
novo campo estelar e ao seu final são 
apresentados os cinco mais altos escores 
e, se for o caso, acrescentado um melhor. 
Quando ninguém está jogando são mos- 
trados os melhores escores ou a apresen- 


tação do jogo. Para facilitar o programa 
está numerado de 10 em 10, o que per- 
mite que se utilize, para sua digitação, o 
comando AUTO. 


Rui Ribeiro de Bastos é estudante de Enge- 
nharia Metalúrgica da Universidade Federal do 
Rio Grande do Sul, e há um ano tem um mi- 
cro JR Sysdata no qual trabalha em BASIC e 
Assembler. 





AD Met e e A 

20 "ue Dr. Kaskl in eos fagocitons “H 

30 "We POR : Rui M. Ribeiro de Bastos te JOGO HW 

40 "Ww Rua Felipe Camarao No. 230 apto 301 Moe oe e e a O 

SO "Hm CEP 90000 PORTO ALEGRE R.S. BRASIL H 05/05/1984 *H 

OD Rae e A A 

70 CLSSPRINTO--nnnnununnam ESPERE UM MOMENTO ESTOU TRABALHANDO * 
eee ss E GOTOS6O 

BO CLEAR666:DIMGCSO),C(30):B(1)=36400:B=B(1):B$(1)="Rui.“2:GOSUBS 
o0 

90 RANDOMEFORK=1TOLOFCSCK)=CHRSCRND(4)m16+112)+CHRECRND(16)n4+12 
4): FORI=1T04:C$S(K)=CS(K)+CHRECRND(64)+127) ENEXTECSCK)=CS(K)+CHRS 
(RND(16)44+124)+CHRECRND(4)R16+112)+CHR$(26)+STRINGS(9,24) 

400 FORI=1TOLDECSCK)=CSCK)+CHRSECRND(64)+127)ENEXTECSCK)=CSCK)+CH 
R$(26)+STRINUS(9,24)+CHRSCRND(4)+127)+CHRECRND(16)+127)2FORI=1TO 
4PCSCK)=CS(K  CHRSCRND(64)+127)2NEXT 

140 CS(K)=CS<K)+CHRSCRND(16)+127)+CHRECRND(4)+127) NEXT 

420 I=USR(2):GOSUB620:GOSUB5S20 

130 PRINT9400,"* Dr. Kasklin e os Fagocitons *“9652,"USE “CHRSCá 
0)»”- PARA MOVER O CANHÃO PARA ESQUERDA”“95BB, “USE -“CHR$(62)” PAR 
A MOVER O CANHÃO PARA DIREITA. “9530, “USE <(ESPACO) PARA DISPARAR” 
35 PFORK=1TO6:PRINTOKN6+777,ASCK); NEXT 

140 S=0:PRINTOPÍZ, “PRESSIONE <CESPACO) PARA COMECAR”; EFORP=0TOSO: 
G(P)=12:NEXT 

150 FORI=0TOLS:A=USR(1):NEXT 

160 FORC=0TO400:AS$=INKEYSEPRINTO92I,” ” ; 3GOSUB600:PRINTO923 
+ “ESPACO” ; 2 IFAS=""THENNEXTESASUSR(Z) 2 GOTOIPDELSEIFASC)” “GOTOL6O 

4170 G=0:L=04CLS 

180 FORI=0TO30:C(I)=RND(696)+64:NEXT 
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490 PRINTOO,” “Sx10” “STRINGS(4-L, 65)CHR$(31)928,K$956,B;2X=RND( 
6):FORT=0TO3O:PRINTACCI),CHR$(46+(1)20)44); NEXT 

200 X$=AS(X)2:P=RND(55)+965:M=RND(50)+5 

210 D=0:FORJ=1TOL4:A=USR (256% XX) EM=MARND(T) +60 IFMC64n J+4M= Ju 4 
+5 

220 IFMDCJ+1)464-6M=(J+1)n64-7 

230 FORH=1TOZ:N=PEEK(14400)2IFP>1014PRINTOÍLOSA4,” 
ELSEIFP<9P60PRINTAP,” “pRP=1014 

240 PRINTOM,X$;9P,DS;: IFNANDONEXTELSEIFNAND1 2860SUB460ELSEIFNAND 
32P=P-2ELSEIFNAND64P=P+2ELSEIFNAND4THEN120 

250 NEXT:PRINTAM, STRINGS(4,32); NEXT 

260 FORI=0TOP:A=USR(1) 3 GOSUB60DINEXTEL=L.+1 

270 PRINTOL,Sm10;STRINGS(12-L,32);:GOSUB4L0 

280 0=INT(S*10/10000):IFS*10<100006070300 

290 IFS*10)>(0%10000)L=L-G(0):6(0)=0 

300 IFL<460T0O190 

310 FORR=0TO2S:A=USR (1): GOSUB600:NEXT 

320 A=USR(2) 

330 IFB(5))=Sw10GOTO39O 

340 FORI=STOLSTEP-1 

350 IFB(I)<S*1O0NEXT 

360 FORJ=5TOI+2STEP-1 

370 BC J)=B(J-1)2BS(J)=BS(J-1) NEXT 

380 B(1+1)=5*102B$(1+1)=”"2PRINTO6P, “NOVO SCORE ENTRE OS CINCO M 
ELHORES 11179900, ;2INPUTYN O ME «< 4 LETRAS ) “;BSCI+1)2BSCI+1) 
=LEFTS(BS(I+1),4) 

390 CLS:PRINTOZ7,K$9217,7SEU SCORE :75m109331,“COLOCACAO”,” SCOR 
E”,“N O M E”sPRINT 

400 FORI=1TOS:PRINTTAB(14)I,B(I),” “BSC(IDINEXT 

440 PRINTOPOP, “VOCE QUER JOGAR DE NOVO 7? Sim(S)/Nao(N)”; 

420 FORC=0T04000:C$=INKEY$: IFCS="“NEXT:GOTOÍL20 

430 IFC$="S"A=USR(2):G0TO140 

440 IFCS="N"A=USR(2)3FORY=0T0127:A=USR(256%Y) ENEXTEGOTOL2Z0 

450 6070420 

460 D=D+1 2: IFD)>SGOSUB410:G0TOZ60 

470 FORE=P-61TOMSTEP-64:PRINTOE, CHR$(94); 2 I=EZA=USR(B960):NEXT 
480 IFI)=MANDI(M+4GOTOS30 

490 FORE=P-61TOMSTEP-64:PRINTOE,” “;:NEXT3GOTOSLO 

500 D$=" "+CHR$(174)+CHR$(176)+CHR$(157)+” “5AS(1)=CHRS(155)+S 
TRINGS(2,140)+CHR$(167)2AS(2)=CHR$(173)+CHR$(166)+CHR$(153)+CHRS 
(158) 2AS(3)=CHR$(152)+CHR$(167)+CHR$C 155) +CHR$S( 164) 2AS(4)=CHR$CL 
67)+CHR$(137)+CHR$(134)+CHR$(155) 

540 ASC(S)=CHRS(166)+CHR$(172)+CHR$(156)+CHR$(153)2AS(6)=CHR$(1S6 
)+CHR$(183)+CHR$(187)+CHR$(172)2K$=CHR$(157)+CHR$(145)+CHR$(15B) 
+CHR$(148)+CHR$(186)+CHR$(129)+CHR$(157)+CHR$(145)+CHR$(18B4)+STR 
ING$(2,1470)+CHR$(137)+CHR$(149) RETURN 

520 FORF=0T0127:SET(F,0):SET(127-F,47):A=USR(2564INT((F+5)/5))2N 
EXT:FORF=0TO47:SET(O,47-F)SSET(127,F)FA=USR(2S6XINT((F+140)/5))5 
NEXT:RETURN 

530 S=S+(ASC(XS)+Ju-2)/10:IFB<(SW10B=5n10 

540 PRINTOL,Sx10” “STRINGS(4-L,65);056,8; 27A=USR(Í)ZA=USR(L) 

SSO FORK=1TOSLO:PRINTOI-67,CS(K); :GOSUB600:NEXT:GOTOZ80 

560 POKE-136,9:IFPEEK(-136)=91=-136:60TOS70ELSEPOKE-16536, 9: IFPE 
EK(-16536)=91=-16536:6G0T0570ELSEI=32665 

570 PRINTIZI=65536+1+(1=32665)465536-1:POKE16561,I-INT(I/256)425 
6:POKE16562, INT(I/256)21=1+15IFPEEK(16396)()201THENDEFUSR=-65536 
+1-65536%(1=32665)ELSEPOKE 16526, I-INT(1/256)4256:POKE16527, INTCI 
/256) 

580 CLEAR400:A$="CD7FOA7DFE0O02821FE012831FE02C021003C0400041 6007 
EFE20280316FF 352308788 120F2BA2DE7C90E20443E04DIFF1LOFE443E02DIFF1 
OFEOD20EFC921003C1 100047EFE2028121730081738052F1F3F1F77231B7AB32 
DEAC936BF1BFS” 

590 I=PEEK(16561)+PEEK(16562)4256+131=1+(1)32767)465536:FORK=0TO 
PI:KS=MIDS(AS,KH2+1,2) BS=LEFTS(KS,1)3X$=RIGHTS(KS, 1) :M=ASC(BS)— 
4B+(B5)9)N7IL=ASC(XE)-4B+(X$)"9”)n73POKEI+K, Mei 6+LEPRINTESXS” 
“, ENEXTIPOKE163996, 175:POKE16997,201:G0TOB0 

600 A=USR(RND(127)4256) RETURN 

640 PRINTOM, STRINGS(4,32);9P, STRINGS(7,32); RETURN 

620 RESTORESCLS:PRINTOLZ, “PRESSIONE (CLEAR) PARA COMECAR“ :M=310: 
GOSUBS00 

630 FORI=1TOZ6:READPEPRINTOP,DS; 

640 FORE=P-61 TOMSTEP-64:PRINTOE,”.”; 3A=USR(6400):D=ESNEXT 

650 FORE=1T03:5IFPEEK(14400)=2CLS:GOTO140ELSEREADK :PRINTID-64HE,C 

HRSCK)CHR$(27)CHR$(B) 

660 NEXT:GOSUB400:GOSUBS00:FORE=P-41 TOMSTEP-64:PRINTOE,” “;2NEXT 
3PRINTOP, STRINGS(7,32);2NEXT 

670 PRINTOLOS, CHR$(136); 3FORP=31TOLSTEP-15PRINTOP+33S, CHR$(140); 
*GOSUB600:NEXTIRETURN 

6B0 DATA973,186,170,171,974,128,166,128,975,137,128,152,976,176, 
128,131,988,186,170,171,989,128,166,128,990,197,128,152,991,176, 
128,131,978,186,170,160,979,144,140,134,980,160,140,137,981,181, 
149,144,998,186,170,171,999,144,128,129,996 

690 DATAÍB4,128,128,994,176,128,128,995,176,128,128,993,186,170, 
171,1000, 186, 170, 171, 1004, 128, 1ã0, 144, 1002, iza, ié4, tos, ioo3, 181, 
149,15414, 984, 176, 140, iat, 985, 176, 140, 134 1983, 197, 137, 152,986, 134, 
164,164 


“;3P=9608 
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O PROCESSADOR 
DE TEXTO 
A-B-C UM PROGRAMA QUE: 


LJ comparivEL com A LINHA IBM-PC 
LJ ESCREVE E IMPRIME EM PORTUGUÊS 


Cl] FACIL DE APRENDER 


Mtovas AS RESPOSTAS ACIMA 
E MUITAS OUTRAS 


PC SOFTWARE E CONSULTORIA LTDA 


CONTATOS ABERTOS PARA REPRESENTANTES 


AGORA É MAIS FÁCIL ASSINAR 


sistéise 


Para sua maior comodidade, 
a ATI Editora Ltda. 
coloca à sua disposição 
os seguintes endereços 
de seus representantes autorizados: 


RIO DE JANEIRO 

ATI Editora Ltda. 

Av. Presidente Wilson, 165 — Gr. 1210 
CEP 20030 — Tels.: (021) 262-5259 


SÃO PAULO 

ATI Editora Ltda. 

Rua Oliveira Dias, 153 

CEP 01433 — Tels.: (011) 853-3800 


PORTO ALEGRE 

Aurora Assessoria Empresarial Ltda. 
Rua Uruguai, 35 sala 622 

CEP 90000 — Tel.: (0512) 26-0839 


SALVADOR 

Marcio Augusto N. tendo 

Rua Rodrigo Argolo, 279/203 
CEP 40000 — Tel.: (071) 240-5727 














Ser esperto e ter um pouco de sorte são os ingredientes exatos para fazer 
de você um vitorioso, neste interessante jogo para a linha Sinclair 








ance os dados e... 
boa sorte! 


ste é um jogo relativamente rá- 
pido, com regras bastante sim- 
ples, que exige sorte e uma boa 
dose de esperteza do jogador. 
Foi inventado pelos marinheiros nor- 
mandos e por mais de duzentos anos, o 
Fecha a caixa, que na língua inglesa 
chama-se Shut the box, tem sido um dos 
favoritos entre os marinheiros de várias 
regiões litorâneas. Embora o Shut the 
box seja normalmente disputado por 
duas ou mais pessoas a dinheiro, pode 
servir como jogo de paciência a uma só 
pessoa. Nesta adaptação para micros, o 
jogo foi programado para ser disputado 
entre duas pessoas. 
O objetivo é que cada jogador cubra 
a maior quantidade possível de núme- 
ros, de acordo com os lançamentos dos 
dados. Deve-se dar prioridade à cobertu- 
ra dos números de maior valor, pois os 


) 
m 
Eq 


a 
H 


en e capurs 
otototata) 


BO PRINT 
UEES Tas 
70 PRINT 


E E) 
30 PRINT 
“;TAB 
100 PRINT 
110 PRINT 
1:"; TAB 15; 
120 PRINT 
130 PRINT 


d+ AAA 
OR Rd ER CR 1) 
om cm Teo = + om 


28 


JOGADOR 1º 


poemas 


to- 


Marco Sergio Furtado Valeriano 
ni pd 


números não cobertos serão compu- 
tados negativamente. 

Os jogadores escolhem em comum 
acordo quem iniciará a partida (no caso 
o jogador 1). Quanto às jogadas, o joga- 
dor lança os dois dados quantas vezes 
forem possíveis, para dar continuidade 
ao seu jogo. Após o lançamento dos da- 
dos, o jogador soma o total obtido e 
decide quais os números da tabela que irá 
cobrir, desde que a soma destes números 
coincida com a resultante dos dados (na 
tabela estão disponíveis somente os 
números de 1 a 9). Por exemplo: no 
caso de ser alcançado um total 10 nos 
dados, o jogador poderá cobrir uma das 
seguintes combinações de números: 9 e 
1,6e4,7e3,8€e 2.0Ojogador faz um 
novo lançamento e repete a operação 
anterior em relação aos números desco- 
bertos, já que todos os outros estão blo- 


80 PRINT 2; HoLMcRSR-ESRSE” 


q) 
Ro 
20) 
"6 
nm 
] 
NY 
3 + 

H 

1 


E 
x 
m 
n 

pes 


queados. Se ele conseguir formar uma 
nova combinação equivalente ao total 
dos dados, cobrirá os números corres- 
pondentes e continuará jogando. Caso o 
jogador tenha coberto os números 7, 8 e 
9, ele poderá optar por utilizar somente 
um dado para os lançamentos seguintes. 

Quando o total dos dados (ou de um 
dado) não permitir uma cobertura cor- 
respondente, o jogador perde a vez. So- 
mam-se os números que sobraram des- 
cobertos, considerados negativos, e en- 
tão o outro jogador passa a lançar os 
dados. O jogador que atingir primeiro 
ou ultrapassar os 45 pontos negativos 
perde o jogo. 


Marco Sergio Furtado Valeriano tem 21 anos 
e cursa o 4º período de Análise de Sistemas 
na UERJ. Fez curso de BASIC no IBAM e no 
Senac e possui um TK-85. 


; "NOME; TAB 15 


D; “DIGITE NOME 


PRINT AT 


97181" 
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STEP & 
OR C&A) 
ET M=2 


THEN GOTO q 
17 STEP 2 


Cg&lk) THEN LET 


S660- DOGG 
= 


INPUT R$ 

IFP Rgc>"L” THEN GOTO 360  COSUE 1018 

Eat. N=:NE (RND+56) +1 700 PR &7T :PíT) 
Pa3+(BEKI;N E , » (T) s GOTO 780 


13;5S1 
“EH POSSIVEL 


* 
& 


JOGADA INUAL 


PRP 


ZCOGWE Zoo 


GOTO 690 


“a 
DOME pe Cafu E 


9169665 


PRRRRRO 
oo 


“QUANTOS NUME 


La 


DISie! 


jetetoteto! 


SN 


memenemen 


“DIGITE NUMER 


E 
= 
s 


FIRST 

VIDEO 

CASSETE 
ENGLISH COURSE 


: Com 2 fitas de 3.30 hs. de duração, um manual, um 
Em 5 vezes sem juros as de exercicio e um de texto você e toda a sua 


i familia aprenderão a falar i a lingua universal. 
Excepcional desconto à vista o Ora ano Fa nar = rápndd 


importante . e Grav: estúd 
TEMOS DRIVE E 419 externas po Cear imp a sã ares dp 


INTERFACE P/ TK 2000 ENTOA Preço de lançamento à vista com desconto 
6 Faça-nos uma visita em qualquer um 
GRAF MO EM 100, ONG Peer rara eu 
INFORMAÇÕES: TEL.: 259-1 299 e 
P/ RESOLUÇÃO GRÁFICA COMPUTER CAMPING é 
& BRASILTRADE CENTER — src viAGENs E TURISMO 


Av. Epitácio Pessoa, 280 (Esq. Vic. Pirajá) — IPANEMA Tel.: (021) 259-1299 — Telex: (021) 30212 BTCP-BR 
Assembléia, 10/lj. 112 (Ed. Cândido Mendes) — CENTRO Tel.: 222-5343 
Av. das Américas, 4790 s/615 (Centro Profissional Barra Shopping) — BARRA Tel.: 325-0481 
Rua 16 de Março. 80 s/lj. 3 — PETRÓPOLIS 
Rua dos Mineiros, 55 s/102 — VALENÇA 








Invasores voltam a ameaçar os terráqueos neste programa desenvolvido 
para micros compatíveis com o TRS 80 modelo | 








Impeça a fuga 
das naves inimigas 


Sílvio Cavalcanti de Araújo 





ocê vai ter uma difícil missão nesta sua viagem por 

uma desconhecida galáxia. Estará encarregado de 

impedir que 20 naves invasoras escapem para colo- 

car em risco a vida em outros planetas, inclusive a 

Terra. Para isso você deve ser um perfeito comandante e exí- 

mio atirador. Durante a batalha suas naves serão alvo de dispa- 

ros do inimigo. E cada vez que você perder uma nave, um inva- 

sor vai escapar. E quando uma nave inimiga fugir, você estará 

perdendo também um canhão. A batalha estará perdida quan- 
do três delas fugirem. 

Em Impeça a fuga, na primeira linha do vídeo aparecem al- 

gumas mensagens, como os números de tiros, de canhões, saldo 


de invasores e o escore com recorde atualizado cada vez que 
for igualado ou ultrapassado. 

Para mover sua nave você deve usar as setas. Esses movi- 
mentos são lentos, mas poderão ser acelerados se for utilizada, 
simultaneamente, a tecla CLEAR. Este jogo foi programado 
com rotina de som, permitindo seu funcionamento em equipa- 
mentos compatíveis com TRS 80 modelo 1. Agora, atire com a 
barra de espaço e impeça a fuga. 

Sílvio Cavalcanti de Araújo é programador BASIC e desenvolve progra- 


mas é j para micros das linhas TRS 80. É autodidata e aprendeu 
BASIC através de livros e revistas. 








REM 

REM -"- IMPECA À FUGA — 

REM Autor! Sílvio C. de Araujo 

REM DGT-100 / 16 kB 

REM Recife, Maio de 1984 

REM een nn nam een name nana 


POKE 16561,224:POKE 16562,127 

AD=327392POKE 16527,AD/256!POKE 16526, ADAND2SS 

FOR I=AD TO AD+28:READ DT:POKE I,DTEINEXT 1 

DATA 205,127,10,62,1,14,0,297,91,61,64,69,47,230,3,179,211,25 
5,13,40,4,16,246,24,242,37,32,241,201 


50 RC=0:PT=0 

60 CLEAR 3000:D=(.047) :A=SORC(CZLP)+CDE(ZLB))/n64) BC (2L9)/A) EN 

=(((A/B)+D)L2):GOSUB 2400:00SUB 5000 

80 CLSsFOR X=15424 TO 15487:POKE X,10:POKE X+096,21:NEXTIVSS=" 
VOCE CONSEGIU BATER O RECORD |117:V6S="DIGITE SEU NOME. (MAX 

IMO 6 LETRAS)” 

90 Vis” VOCE CONSEGIU IMPEDIR A FUGA DOS INVASORES ti t“:v2s 

-“ QUER JOGAR OUTRA VEZ 7 (5/N)“:VIS="PILOTO CHUPIL 

DO !1172VAS="VOCÊ DEIXOU QUE ESCAPASSEM 17 

400 VI=32TI=100:CA=142:N$=CHR$(166)+CHR$C191)+CHR$C153)+CHR$(128 

)ECS=CHR$(158)+CHR$(173): ICS=CHR$(173)+CHR$(158) 2 IRS=STRINGS(6,1 

76)260SUB 1500 

105 PI=504 

107 PC=896:PRINTOPC,CS; 

110 IF PIDCCA+2):PI=PI-S3PRINTOPI,NS;SELSEIGOTO 700 

115 IF VI=2:PRINTOS44,NS;FELSESIF VI=12PRINTOLA4,N$;9156,NS;ELS 





ESIF VI=OSPRINTOL44,N$;9156,NS;9172,NS; 

120 P=PEEK(14400) 

125 IF RND(9)CPEGOTO 1I03ELSESPJ=PI+ EWSINTOC96O-PJ)/64) 3KJuP J+6 
A2FOR X=1 TO WiPJ=PJAGAPOKE 153604, 2072 S=USR(SI4) S=USR(S1B)E 
NEXT 

127 FOR Xi TO WEPRINTOKI,” “p2KI=KI+G4SNEXTEPOKE 
128 IF KJ-64=PCORK J-64=PC+1 THEN GOSUB 700 

130 IF P=64 OR P=19221F PCCP5BES=USR (540) EPC=PC+LEPRINTOPC, CS EP 
RINTOPC-2,” “;3ELSESPRINTOPC,” “sPC=BP6:PRINTAPC,CS; 

140 IF P=32 OR P=160:1F PC)896:S=USR(S40) PC=PC-S2PRINTOPC,CSpsP 
RINTAPC42,” ";SELSESPRINTOPC,”  “;3PC=9572PRINTOPC,CS; 

150 IF P=128 OR P=130:TI=TI-L:1F TIC1:VI=12G0T0 7003ELSESPRINTOL 
7, Nip 3K=PC-B96IL=128+KIFOR J=PC-64 TO L STEP-64:5=USR(S26) :POKE 
15360+3,19621F J=PI OR J=PI+ OR 2 THEN GOSUB 800 ELSE NEXT 
FOR J=PC-64 TO L STEP PRINTAS NEXT 

160 IF P=á6 Pri94sIF PC(9S7: D)2PC=PC+22PRINTOPC,CS;3P 
RINTAPE LSESPRINTOPC PC=B965PRINTOPC,CS; 

470 IF P=162:1F PC)89 SR (540) :PC=PC-23PRINTAPC, CS EP 
RINTOPC+2,” “;SELSESPRINTOPC, 7 5PC=9574PRINTAPC,CS; 

500 Goro 110 

700 FOR X=1 TO 25:NF=129+RND(62) PRINTOPC, ICS; OPC+1,CHRSCNE)p5S= 
USR (S20+RND (253) PRINTOPC, CHRSCNF) BPC, CS; ES=USR(S20+RND(25)) ENE 
XTEPRINTAPC,” ; 

7140 PRINTAPI, “3 

720 VI=VI-13CA=CA+S4:GOSUB 1500:PI=PI-64:IF PICCA AND VIDO sGOTO 
105 

730 IF VIDOSGOTO LOSSELSESPRINTOL44,N$;9158,N$;9172,NS;:GOSUB 20 


16320,21 
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ASSISTÊNCIA TÉCNICA E 
NA VENDAS DE MICROCOMPUTADORES 


10 FORI = 1TO 20 

20 PRINT “ESTOU EM APUROS” 
30 NEXTI 

40 GO TO 10 


GRAFIX 


eRdismac 


ATATOAD 


EQUIPAMENTOS ELETRICOS LTDA. 
RUA LUIZ GOES, 1894 
FONES: 276-8988 e 577-8761 
TELEX: (011) 37.755 DTRD — SP 








———e—e—eeee—eee-——e———— es 


Você é o piloto de uma nave que vai encontrar muitos obstáculos 
neste jogo para os micros da linha Sinclair 








Defenda-se 


ocê é o piloto de uma nave, 
cuja missão é encontrar um 
tesouro escondido, após 
percorrer um longo percurso 
passando por montanhas, cavernas, tú- 
neis e edifícios. A nave aparecerá no can- 
to esquerdo do vídeo e para movê-la você 
poderá dispor do joystick ou do teclado, 
escolhendo, respectivamente, as opções 
JouT, dadas no início do jogo. Se a sua 
opção for o teclado, os comandos são: 
tecla 1 para a nave subir; e 0, para des- 
cer. 
A quilometragem percorrida é mos- 
trada no canto inferior esquerdo do ví- 
deo e vai aumentando à medida que vo- 
cê vai avançando. Se houver uma coli- 
são, a nave explodirá, provocando uma 
diminuição no número de chances, que 
são cinco. Após a colisão, o jogo é rei- 
niciado em um ponto um pouco mais 
atrás do local da explosão. Ao terminar, 
qualquer tecla pressionada produzirá 
uma nova partida. O jogo apresenta uma 
grande variedade de telas, causando um 
constante suspense sobre qual será o 
próximo obstáculo. 

Defenda-se foi desenvolvido em 
Assembler para os micros da linha Sin- 
clair, com uma memória mínima de 16 
Kb de RAM. Para digitar o programa, 
comece pela listagem 1. As linhas REM 
são necessárias porque é nelas que fica- 
rão os bytes da linguagem de máquina. 
Elas deverão conter exatamente o núme- 
ro de caracteres indicados. 

Para digitar estas linhas, proceda da 


32 


Tadeu Curinga da Silva 
Picdniahtndas! iefintasitddas 


seguinte forma (ou então use o coman- 
do E do MICRO BUG-MS nº 33, pág. 
54): coloque o micro no modo FAST 
(digitando FAST e ENTER ou NEWLI- 
NE) para ganhar tempo; digite uma li- 
nha 2 REM com 206 caracteres quais- 


quer; edite esta linha 2, modifique o seu 
número para 6, avance o cursor e acres- 
cente mais 148 caracteres a esta nova 
linha, para que assim ela contenha 354 
caracteres. A seguir, edite a linha 6, mo- 
difique o seu número para 1, avance o 








caracteres). 
caracteres 
caracteres 
caractere 
caractere 
caractere 


MINI MONITOR HEXADECI- 


REM .... (468 





cusunm 


7000 REM 
MAL 

7005 CLS 
7010 PRINT “DIGITAR OU CONFERIR 
(D/00 7” 

7020 INPUT AS 

7030 PRINT “ENDERECO INICIAL DO 
BLOCO 7” 

7040 INPUT I 

7050 PRINT “ENDERECO FINAL 72” 
7060 INPUT F 

7065 CLS 

7070 IF AS="C” THEN GOTO 7320 
7080 FOR N=I TO F STEP 8 

7090 LET A=0 

7100 SCROLL 

7410 PRINT N;” — “; 

7420 INPUT AS 

7130 PRINT AS” =“; 

7440 INPUT CHEC 

7150 PRINT CHEC 

7160 LET B=0 

7470 FOR K=1 TO LEN AS STEP 2 





| Listagem 1 | 







7180 LET C=CODE AS(K)*16+CODE As. 





(K+1)-476 

71490 LET A=A+C 

7200 POKE N+B,C 

7240 LET B=B+1 

7220 NEXT K 

7230 IF CHEC=A THEN GOTO 7280 
7240 SCROLL 

7250 PRINT “ERRO, POR FAVOR DIGI 
TE NOVAMENTE” 

7260 LET I=N 

7270 GOTO 7080 

7280 NEXT N 

7290 SCROLL 

7300 PRINT “BLOCO DIGITADO” 
7310 STOP 

7320 REM CONFERE 

7330 FOR N=I TO F STEP & 

7340 SCROLL 

7345 LET C=0 

7350 PRINT N;” — “; 

7360 FOR A=0 TO 7 

7365 IF N+A)F THEN GOTO 7410 
7370 LET B=PEEK (N+A) 

7380 PRINT CHRS (INT (B/16)+28); 
CHRS (B-INT (B/16)n16+28); 
7390 LET C=C+B 

7400 NEXT A 

7440 PRINT” = “5C 

7420 NEXT N 

7430 STOP 
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cursor e acrescente mais 114 caracteres 
a esta nova linha, que conterá então 468 
caracteres. Edite depois a linha 1, modi- 
fique-a para 4 e coloque mais 12 carac- 
teres. Faça a edição da linha 4, mude-a 
linha 3 e adicione mais 2 caracte- 
res. Por último, repita esta operação 
com a linha 3, transforme-a em linha 5 e 
acrescente mais 13 caracteres. 

Após ter feito isso, digite o comando 
direto: PRINT PEEK 16396+256* PEEK 
16397. O resultado deverá ser 19030. 
Caso contrário, terá havido erro na digi- 

das linhas. Se tudo estiver correto, 
coloque o micro no modo SLOW e digi- 
te normalmente a listagem 1, a partir da 
linha 7000. 

De RUN e na tela surgirá a pergunta: 
DIGITAR OU CONFERIR (DIC) Vo- 
cê deverá entrar com a letra D (digitar). 
Se você tiver dúvidas referentes a um 
bloco, é bom conferir. A seguir, o pro- 

ama fará uma nova pergunta: ENDE- 

ÇO INICIAL DO BLOCO? É só en- 
trar com o primeiro endereço do bloco a 
ser digitado (veja a Figura 1). Finalmen- 
te, o micro pedirá o endereço final para 
depois seguir com a entrada dos bytes 
em Assembler. Eles deverão ser digita- 
dos sempre de oito em oito, num total 
de 16 caracteres (dois para cada byte), 
exceto na última linha de cada bloco, 
onde o número de bytes poderá ser 
menor que oito. Nos blocos em Assem- 
bler da listagem 2, aparecem espaços 
entre cada byte apenas para visualizá-los 
melhor. Não digite esses espaços. 

Após a entrada dos bytes referentes 
ao endereço correspondente, o micro 
pedirá mais um número: o checador. 
Este número, como o próprio nome diz, 
checa se todos os bytes foram digitados 
corretamente. Em caso positivo, O pro- 
grama continuará a rodar normalmente; 
mas se houver erro, o programa acusará, 
oe que você digite novamente os 

ytes do endereço onde houve erro. 

Para ficar mais claro, vamos dar um 
exemplo. Suponhamos que você tenha 
digitado toda a listagem 1 e queira en- 





16514 - 00 2A OC 40 01 CS 00 09 = 325 
16522 - 22 78 40 41 21 00 CD 22 = 510 
16530 - 41 CD 3A 41 CD OC 41 CD = 880 
16538 - 3A 41 72 28 72 28 36 05 = 496 
16546 - CD OC 41 CD 3A 41 CD 18 = 839 
16554 - 41 CD 6C 41 36 82 23 CD = 867 
165462 - 02 41 36 05 23 36 86 00 = 349 
16570 - CD 02 41 06 05 CD 71 41 = 466 
16578 - CD 22 41 CD 18 41 CD 7A = 925 
16586 - 41 06 04 CD 71 41 CD 7A = 785 
16594 - 41 06 05 CD 71 41 CD 18 = 688 
16602 - 41 CD 18 41 CD 53 41 36 = 766 
16610 - 03 23 36 03 23 36 05 19 = 214 
16618 - CD SE 41 36 05 28 36 83 = 651 
16626 - 28 36 83 00 CD OC 41 CD = 715 
16634 - 3A 41 CD OC 41 C3 83 41 = 796 
16642 - 23 36 05 28 28 19 CD OC = 422 
16650 - 41 C9 ES 21 00 00 3E OF = 605 
16658 - BC 23 20 FC E1 C9 2A 78 = 1098 








MICRO SISTEMAS, janeiro/85 


BLOCO-END. INICIAL-END.FINAL 





Figura 1: tabela de endereços 


trar com os bytes do primeiro bloco. 
Após dar RUN, a tela imprimirá DIGI- 
TAR OU CONFERIR (D/C)? Entre com 
D. Aparecerá então: ENDEREÇO INE 
CIAL DO BLOCO? Entre com o núme- 
ro 16514. E a seguir  perguntará: EN- 
DEREÇO FINAL? Entre com o número 
16981. A tela imprimirá: 16514 — e fi- 
cará esperando a entrada dos bytes. Di- 
ite 00240C4001C50009. A tela então 
icará assim: 16514 — 00240C4001C5 
0009= esperando a entrada do checador. 
Digite 325 e a tela mostrará: 
16514 — 00240C4001C50009=325. Se 
tudo estiver correto, o programa dará o 
SCROLL, imprimirá o próximo endere- 
ço e continuará sua execução. Caso 
ocorra algum erro na digitação dos by- 
tes, o programa acusará. É aconselhável 
fazer gravações do programa a cada dois 
blocos digitados para continuação futu- 
ra, pois digitar tudo de uma só vez será 
cansativo. Após a entrada de todos os 
blocos em Assembler da listagem 2, digi- 
te as seguintes linhas: 


10 SAVE "DEFENDA-SE" 
20 RAND USR 18723 
Depois, dé o comando RUN 10, salve 


o programa definitivamente e divirta-se, 
ou melhor, defenda-se! 





Tadeu Curinga da Silva tem 15 anos e cursa o 
nível 4 de Eletrotécnica na Escola Técnica 
Federal do Rio Grande do Norte. É usuário de 
um TK82-C há um ano. 


16666 - 40 23 23 23 22 78 40 C9 


16674 - CD 148 41 36 07 23 36 86 = 578 
16682 - 28 19 06 09 CD 6E 41 36 = 517 
16690 - 82 23 36 06 CD OC 41 C9 = 708 
16698 - CD 18 41 CD 53 41 36 07 = 708 
16706 - 23 36 03 28 19 CD SE 41 = 524 
16714 - 36 82 23 36 83 23 36 04 = 497 
16722 - C9 36 07 23 36 03 23 36 = 443 
16730 - 04 28 28 49 CD OC 41 06 = 400 
16738 - 04 36 05 19 CD OC 41 10 = 386 
16746 - FB C9 06 04 CD OC 41 36 = 795 
16754 - 05 23 CD 02 41 10 FB C9 = 777 
16762 - 36 07 23 36 03 CD 02 41 = 425 
16770 - C9 3E 16 32 82 40 2A OC = 583 
16778 - 40 DE 43 09 36 82 23 36 = 427 
16786 - BA 23 36 83 OE 35 09 22 = 468 
16794 - 7B 40 CD OC 41 2A DC 40 = 587 
16802 - DE 61 09 0E 4F CS ES Di = 800 
16840 - 13 ED BB 23 70 Cí 3A B2 = 968 





esad 


ESCOLA SUPERIOR DE ADMINISTRAÇÃO E NEGÓCIOS 


AV. NILO PEÇANHA, 50 - GRUPO 1410 
TEL.: (021) 240-0958 
TELEX: (021) 31654 


“MANUAL DE OPERAÇÕES DE 
MERCADO COM CALCULADORA 
FINANCEIRA HP-12C"” 


EMPRÉSTIMOS E 
FINANCIAMENTOS 
Descontos de dupli- 
catas; Financiamen- 
to para recolhimento 
de tributos e contri- 
buições; Financia- 
mento a Pequena e 
Média Empresa - Res. 
695; Financiamento 
para capital de giro - 
Bco. de Investimen- 
tos; Adiantamento de 
exportação; Financiamento a produ - 
ção para exportação Res. 882 (ex 674); 
Repasse de recursos externos - Res.63; 
Arrendamento mercantil - “Leasing”; 
Crédito direto ao consumidor 


APLICAÇÕES FINANCEIRAS E IN- 
VESTIMENTOS: Letras do Tesouro Na- 
cional; Obrigações Reajustáveis do Te- 
souro Nacional; Letras de Câmbio; Certi- 
ficados de Depósitos Bancários - CDB; 
Depósito a Prazo Fixo - RDB; Letras Imo- 
biliárias; Cadernetas de Poupança; De- 
bêntures 


PROGRAMAÇÃO DE CALCULADORAS 


FINANCEIRAS PARA OPERAÇÕES 
DE MERCADO 


Introdução a Pro-[: 
gramação — Lógica |. 
da Máquina. f 
Programas Pron-|. 
tos: Desconto de Du- || 
plicatas; Capital de. 
Giro; Res. 63: Certifi- |. 
cado de Depósito |. 
Bancário; Letra de 
Câmbio; Ponto de| 
Equilíbrio; Projeções = - 
Financeiras; Correções Salariais; Re- 
gressão Linear; ORTN's; LTN's 


CONSULTE-NOS SOBRE CUR- 
SOS DE UTILIZAÇÃO DE CALCU- 
LADORAS HP-12C e HP-41CV. 


Adquira esses dois exemplares 
por apenas Cr$ 69.000,00 nos 
escrevendo ou enviando o cupom 


Enviem cheque nominal para ESAD 
Escola Superior de Administração e 
Negócios. 

Av. Nilo Peçanha, 50 Gr. 1410 

Cep.: 20.040 — Rio de Janeiro — RJ 
Cheque 
Banco... 








DEFENDA-SE 


PLEDIALACAD LADA 


[EEE 


FERA ErdA Tata 
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Suprimento é coisa séria 





Com a Centraldata 
om A entrega é imediata 


Mantenha o seu computador bem alimentado adquirindo 
gos o E” papas consagrada 


ee rememer; z —— O Discos Magnéticos: 5 Mb, 16 Mb, 80 Mb, etc 
CENTRAL AJA DISKETES: 5 1/4e 8” e fitas magnéticas O Fita Magnética: 600, 1200 e 2400 pés 
O Fita CARBOFITAS p/Impressoras: Globus, M 


O marca VERBATIM > 
ETIQUETAS PIMACO em PIMATAB rá ER Enio ad Diablo, 
PASTAS E FORMULÁRIOS CONTÍNUOS am 1403/5203. 016 0 TO SM Td 


E € Cartucho Cobra 400 
AV. PRESIDENTE VARGAS Nº 482 GR. 201/203 Tel.: KS (021) 253-1120 


Com. e Representações Lida 








Um dia chegamos à conclusão que precisamos agilizar nossos jogos. 
Se esse é o seu caso, conheça duas rotinas fáceis. São para usuários do ZX-81 








Jogue 
em ritmo Assembler 


Giangiacomo Ponzo Neto 





maioria dos jogos comercializados para o ZX-81 con- 

tém rotinas em linguagem de máquina (Assembler). 

Isso se deve, principalmente, ao fato de o BASIC des- 

ses equipamentos ser considerado muito lento, o que 
torna os jogos que empregam apenas essa linguagem um tanto 
enfadonhos. 

Por causa disso, muitos usuários, que ao comprarem um mi- 
cro sonhavam em desenvolver seus próprios jogos animados, se 
frustraram. E o que ocorre, talvez na maior parte desses casos, 
é que esses usuários desistem de tentar e acabam mergulhando 
nos jogos disponíveis no mercado. 

Neste artigo, mostraremos duas rotinas simples, bastante co- 
muns em jogos. Vamos analisá-las com calma, de maneira que 
os poucos iniciados possam começar a ver que o Assembler não 
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LD WL, (16421) 
LD A,223 
cru 

JR NE,AA 

LD A, 247 

CP L 

JR NZ,AA 

LD HL, (16396) 
LO DE,661 
ADD HL,DE 

LD D.H 

LD E,L 

INC HL 


Carrega em HL a tecla acionada. 
Compara com a tecla 5. 


Em caso negativo, salta para AA. 
HL o endereço anterior 
la memória de vídeo e 

posiciona para o SCROLL à esquerda 


LD A, (HL) 
cr 131 
JR 2,88 
LD 8C,31 
LDIR 

DEC NL 


Faz a comparação do caráter à es- 


Compara com a tecla 8. 


Em caso negativo, salta 
Carrega em HL o endereç 
ao ínicio da memória de 
siciona para O SCROLL à direita. 


Faz a comparação do caráter à di 
reíita da na e à nave já esti 
ver no canto dir! vai para BB. 
Define o contador. Fr 
Realiza o SCROLL à direita. 








volta ao BASIC. 





é tão complicado, e que eles mesmos podem tentar programar 
e usar rotinas em linguagem de máquina. 

Uma das maneiras mais fáceis de se fazer um programa em 
Assembler (desculpem-me os puristas) é elaborá-lo totalmente 
em BASIC e ir “traduzindo”, linha por linha, até ficar com boa 
parte dos comandos, ou até sua totalidade, em Assembler. Ou- 
tra maneira é usar os programas-compiladores existentes no 
mercado. Eles fazem sozinhos a tradução descrita acima, exigin- 
do apenas que entremos com o programa original em BASIC. 

Mas quem tem um desses programas sabe das limitações im- 
postas ao BASIC do programa de origem. E além do mais, exis- 
te aquela satisfação de se ver, feita por nós, aquela rotina em 
linguagem de máquina, que antes era tão lenta. 


ROTINA DE MOVIMENTO 


Essa rotina (figura 1) serve como exemplo do que se pode 
conseguir em Assembler sem grande conhecimento. Ela subs- 
titui o famoso trecho que movimenta uma nave em determina- 
da linha da tela, em BASIC: 


LET A=14 
xxxx 


LET ASA+(INKEYS="8" AND A<27)-(INKEY$="5" AND A>0) 
PRINT AT 20,A;"(GalaD " 


GOTO xxxx 


Naturalmente, os parâmetros sublinhados não precisam ter 
necessariamente estes valores e o desenho da nave pode variar. 
Mais adiante trataremos disso. 

Para carregar a rotina no micro use o monitor publicado em 
MS 23 no modo A (hexadecimal) ou outro qualquer que você 
queira. A posição na memória pode ser definida por você, já 
que só se usam saltos relativos nas rotinas (se você não souber 
o que é isso, dê uma olhada no curso de Assembler publicado 
por MS entre os números 21 e 32). Uma maneira é criar uma 
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o og rede as rotinas. Tomaremos esse modo co- 
mo aça um 


o escolhido. REM (na 12 linha do programa) com 
mais 111 caracteres quaisquer. O monitor colocará lá as instru- 
rom - O 19 endereço de memória disponível agora 


Vamos a uma análise da rotina: a primeira instrução carrega 
HL com uma variável muito importante do sistema, a 
qual indica a tecla que está sendo pressionada. Desta instrução 
até a sétima são feitas comparações para se saber se a tecla 5 
está sendo acionada. Em caso positivo, o processamento segue 
com um efeito de SCROLL para a esquerda, desde que a nave 
já não esteja nesse canto mas apenas na linha da tecla onde ela 
se encontra. Se a tecla 5 não estava sendo pressionada, o pro- 
cessamento passa para a instrução 21, que é onde se encontraria 
o processamento, se houvesse se realizado o SCROLL citado 
acima. Desta instrução até a penúltima, faz-se para a tecla 8 o 
teste que se fez para a tecla 5, só que, em caso de acionamen- 
to, dá-se um efeito de SCROLL para a direita. 
A chamada da rotina por BASIC será do tipo: 


REM (+111 caracteres) 
PRINT AT 20,14; "E" 


RAND USR 16514 
SOTO yyyy 


Novamente, o sublinhado pode ser alterado. 

Escreva a chamada (só para testar) apenas com as quatro 
linhas descritas de RUN e veja, pressionando 5 ou 8, a rapidez 
da rotina em relação ao programa substituído do BASIC. Com- 
pare! Saiba que se a chamada da rotina Assembler fosse feita 
por outra rotina, também em Assembler, já num programa 
completo, não muito longo, a rapidez poderia ser ainda maior, 
e então seríamos forçados a colocar loops de espera na rotina. 
Isso ocorre porque o que demora mais no programa apresenta- 
do, por incrível que pareça, é a chamada (RAND USR 16514), 
bem mais lenta do que toda a execução da rotina em lingua- 
gem de máquina. 

Finalmente, como mudar os parâmetros sublinhados nos 
programas em BASIC, agora em Assembler? 


ALTERAÇÕES 


A primeira mudança (coluna inicial do PRINT = 14) é sim- 
ples. Ela é feita mediante alteração no PRINT do programa de 
chamada, colocando-se ali a coluna desejada. 

A mudança das teclas de movimento (5 e 8) é mais comple- 
xa. Mas para não perder tempo com tabelas, use o programa da 
figura 2. Pressione, mantendo o dedo por algum tempo, a tecla 
que você quer para substituir o S, anote os valores, e então tro- 
que os números nas instruções da rotina Assembler (segunda e 
quinta instruções). Para trocar o 8, empregue procedimento se- 
melhante, só que alterando as instruções 21 e 24. Se você não 
está familiarizado com Assembler, atenção no momento das 
modificações. 

Para alterar a linha da tela onde está a nave (20) você deve 
mexer nas instruções 9 e 28. Note que 661 (da instrução 9) é 
igual a 20 x 33 + 1; e que 692 (da instrução 28) é 20 x 33 + 32. 
Para colocar a nave na linha 18, por exemplo, substitua os nú- 
meros sublinhados (20) por 18, e altere as instruções descritas. 
Não esqueça também de alterar o PRINT no programa de cha- 
mada. 


Para alterar os limites que a nave não pode ultrapassar é ne- 
cessário mudar o número que foi somado nas instruções 9 (+1) 
e 28 (+ 32). Mais de 1 na 9 e/ou menos de 32 na 28. Obviamen- 
te, o que foi somado na 9 deverá ser sempre menor que o que 
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IF INKEY$ 


“” THEN PRINT PEEK 16422; 
"(H)-";PEEK 16421;"(L)-"; INKEYS 
GOTO zzzz 





Figura 2 


for somado na 28. Além disso, é preciso diminuir o valor dado 
ao par BC nas instruções 17 e 36, na medida em que se alterar 
os valores, respectivamente, nas instruções 9 e 28. Essa mu- 
dança é necessária, pois o par BC serve de contador para o loop 
dos SCROLLs. Se houver mais SCROLLs que o necessário, 
ocorrerão problemas no arquivo de imagem. 

O desenho da nave pode ser alterado na chamada em BASIC. 
As mudanças na rotina Assembler são nas instruções 15 e 34. 
O número comparado (131) é o código dos caracteres laterais 
da nave ( fm ). Essas instruções devem ser alteradas de acor- 
do com o novo código dos caracteres laterais do novo desenho 
da nave. 


ROTINA DE CHAMADA DE TIRO 


Outro exemplo simples. A vantagem da rotina anterior era a 
rapidez. Esta rotina traz outra das vantagens do Assembler. O 
que veremos adiante dificilmente poderia ser executado em BA- 
SIC satisfatoriamente, apesar de ser uma tradução. O trecho 
em BASIC é: 


IP INKEY$="0" THEN GOTO kkkk 


GARANTA 
SUA MS 
TODO MÊS! 


ASSINE HOJE MESMO E RECEBA GRATUITA- 
MENTE 6 NÚMEROS À SUA ESCOLHA A PARTIR 
DO Nº 13. PREENCHA O CUPOM ABAIXO (OU 
UMA XEROX, CASO VOCÊ NÃO QUEIRA CORTAR 
A REVISTA): 

NOME; EMPRESA; PROFISSÃO/CARGO; ENDERE- 
ÇO PARA A REMESSA; CIDADE; CEP; ESTADO. 


Nome 
Empresa 
Profissão/Cargo 
Endereço para remessa 
O mma ape, Estado 
Assinatura Anual: [] Micro Sistemas ... Cr$ 39.000,00 


[ GRÁTIS! 6 NÚMEROS ATRASADOS. 


























Preencha um cheque nominal À ATI Editora Ltda., e envie 
para: Av. Presidente Wilson, 165/Grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20.030 — Teis.: (021) 262-5259 e 2626306 
R. Oliveira Dias, 153, Jardim Paulista, São Paulo, SP, CEP 
01433 Teis.: (011) 853-3574 e 853-3800. 

Seu recibo será enviado pelo Correio. 








JOGUE EM RITMO ASSEMBLER 


Mas, só isso?..., dirão alguns. O que peço é que continuem 
lendo e verão a importância da tradução dessa linha, que geral- 
mente é usada para dar a hora do tiro nos programas em que o 
jogador tem alguma espécie de alvo a acertar, desviando o pro- 
grama para a rotina de tiro (que se iniciaria em kkkk). A rapi- 
dez da linha em BASIC já é razoável (por ser curta), e, por isso 
só, não justificaria o trabalho de se fazer uma rotina Assembler. 
E o tempo da chamada (tipo RAND USR endereço) não seria 
muito menor que o da linha mostrada. Lembre-se que na outra 
rotina havia uma sequência de instruções bem mais complexa, 
logo, mais demorada, e que ganhou muito em velocidade, quan- 
do em linguagem de máquina. 


Então, qual a vantagem? Isso veremos daqui a pouco. 


CARREGANDO A ROTINA 


Para carregar a rotina comece do endereço de memória 
16584 (logo após a rotina de movimento) usando o monitor. A 
linha REM anterior já tem espaço para esta rotina. Vamos às 
peculiaridades. 

Um tipo de chamada USR não precisa ser, necessariamente, 
RAND USR, PRINT USR ou LET variável = USR (as mais usa- 
das). Introduziremos aqui um GOTO USR. A rotina está na fi- 
gura 3. A chamada em BASIC é do tipo: 


REM (+111 caracteres) 
GOTO USR 16584 


kkkk (rotina de tiro) 


Observe, na figura 3, 
1) na instrução 20, o o lee foi exemplificado como 200 (C8 
00, em hexadecimal e não end cs, pois a parte mais significativa 


deve ficar na segunda pos 

2) na instrução 22, jjjj foi | exemplificado como 100 (64 40); 

3) naturalmente, e jiij podem ter outros valores, desde 
que se tome cuidado com a ordem dos hexadecimais, confor- 
me visto na observação 1. 

Se a tecla O for pressionada, o processamento irá para kkkk, 
caso contrário, continuará normalmente, indo para jjjj. Como 
isso ocorre? Bem, as rotinas Assembler no ZX-81 retornam ao 
BASIC com o valor (decimal) do par BC. Se fizermos GOTO USR 
endereço, o micro, depois de executar normalmente a rotina, a 
partir do endereço indicado, retornará ao BASIC com o que es- 
tiver em BC, e usará seu valor para GOTO. Então, é só darmos 
a BC, na rotina, o número da linha para a qual o programa de- 
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LO BL.(16421) 24 25 40 Carrega em HL a tecla acionada. 
LD A,245 3E PS Compara com as teclas 8 0.0, se 
cr H BC pressionadas ao mesmo 
JR NE,CC 20 05 Em caso negativo, salta para CC. 
JE EP 
BD 
28 14 





3E DD Compara com as teclas 5 e 0, 
acionadas ao mesmo 


Em caso positivo, salta para EE. 
se 
tempo. 
caso negativo, salta para DO 


BC 
20 05 
38 E7 


BD 
28 04 
JE PD 


Bm caso positivo, salta para EB. 
Compara com a tecla 


20 09 
JE EP 


Em caso negativo, salta para FF. 


20 04 
01 cs Do Carrega em BC o número Kd 
9 Volta ao BASIC. 
Carrega em BC O número jjjj- 
Volta ao BASIC. 


e 
01 64 00 
cs 





verá saltar, caso: a) a tecla O esteja acionada (kkkk); b) a tecla 
O não esteja acionada (jjjj). Atente bem para as observações re- 
ferentes a figura 3, relacionadas acima. 


RETOQUES FINAIS 


Outro fato interessante é que no BASIC a linha testa o O, 
mas se você apertar o O e outra tecla do jogo, por exemplo, 
uma das teclas de movimento da sua eventual nave, nada 
acontecerá: nem a nave se move, nem o pr a desvia para 
a rotina de tiro. Como solucionar o problema? Em BASIC, fi- 
caria “me corn e implicaria em linhas extras, aumentando a 
lentidão. Porém, em Assembler, pode-se fazer algo mais sim- 
ples. Usaremos a rotina da figura 2. Rode-a e aperte 8 e O jun- 
tos e faça a verificação dos valores na figura 3. Repita o proce- 
dimento para S e O juntos, e O sozinho. As teclas 5 e 8 são para 
compatibilizar as duas rotinas mostradas neste artigo, pois são 
as teclas de movimento. Assim, qualquer combinação com até 
duas teclas do jogo (incluindo o 0) estará prevista na rotina e o 
desvio se dará normalmente. Se não forem 5 e 8 as teclas de 
movimento, troque os valores nas instruções de comparação 
usando a rotina da figura 2, para saber os valores a serem alte- 
rados. Se houver mais teclas utilizáveis no jogo, que poderiam 
atrapalhar, caso apertadas junto com o 0, faça mais compara- 
ções, do mesmo tipo que rod feitas para o S e 8 junto ao 0, 
inclusive podendo ser prevista a hipótese de mais de duas teclas 
serem apertadas ao mesmo tempo. 

Já com tudo digitado, faça o teste: 


1 REM (rotinas Assembler) 

20 GOTO USR 16584 

100 SCROLL 

120 PRINT "." 

140 GoTo 20 

200 SCROLL 

220 PRINT "x” 

240 GOTO 20 


Dê RUN e aperte 0, sozinho ou junto com 8 ou 5. O pro- 
cessamento é desviado, conforme pretendíamos. 


MOVIMENTO E TIRO 


Se adicionarmos à rotina de movimento uma compara- 
ção, para haver deslocamento com o O pressionado junto ao S 
ou ao 8, poderemos, com duas rotinas no mesmo jogo, fazer o 
movimento e dar ordem de tiro, apertando duas teclas ao mesmo 
tempo, sem que uma interfira na ação da outra! 

Essa é mais uma grande vantagem do Assembler, além da ra- 
pidez. Tente fazer o que foi mostrado em BASIC. E se conse- 
guir, veja como ficará lento. 

Um exercício para você: troque o RET na instrução 40 da 
fi igura 1 grão 16583) por um NOP (código O — instrução 

rante), fazendo PORE T6S8S, O. Faça um joguinho em 
BASIC usando a linha REM com as rotinas polar (ma Quando 
for mover a nave chame GOTO USR 16514. Agora as duas ro- 
tinas estão juntas e farão o movimento e a ordem de tiro, de 
acordo com a (s) tecla (s) acionada (s). 

Temos então as rotinas para incrementar nossos jogos. Você 
pode tentar traduzir outros trechos comuns nesses programas 
e, quem sabe, até transformá-los totalmente para Assembler. 

Agora, se alguém pensou: é uma boa idéia..., então a 
mos o objetivo desse artigo. E 


Singiácndo Ponzo Neto cursa Engenharia Elétrica na UFRJ, onde vem 
ganhando experiência em programação FORTRAN. Trabalha também 
em BASICE e splash com seu micro da linha Sinclair e utiliza calcula- 
doras proyramíáveis. 
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Extra Copy é, 
tecnologicamente, o mais 
avançado papel 
autocopiativo produzido 
no Brasil. A base do 
Extra Copy é o papel para 
formulário contínuo 
Simaform, internacionalmente 
reconhecido como um dos 
melhores em seu gênero, 
fabricado pela IPP. 

Otipo de revestimento é o 
grande diferencial que torna 
Extra Copy sem similar 

no mercado brasileiro. 

Ao contrário dos 
autocopiativos 
microencapsulados, 





Papel autocopiativo Extra Copy. 
O começo de um trabalho limpo. 


Extra Copy é fabricado 
com revestimento à base de 
emulsão. A superfície é 
mais lisa e uniforme e 
consequentemente, 
uma impressão e cópias 
semfalhas. As bobinas 
Extra Copy para telex 
aumentam a qualidade e 
o desempenho da 
teleimpressora. 


pai = sisesam mo 










Ela poderá imprimir os telex 
em até 8 vias. Cópias perfeitas. 

Extra Copy é uma revolução 
no processamento de dados. 

Extra Copy aumenta a 
eficiência da impressora e 
pelo simples fato de não 
tercarbono, reduz o 
trabalho do operador. 

Extra Copy é garantia de maior 
produtividade e economia 
gerando cópias limpas e 
seguras em até 8 vias. 

E uma perfeita adequação 
aos equipamentos. 


S 


Vendas e Marketing 
Rua Lucas Obes, 627 
Tel. (011) 274-6066 
São Paulo SP 


e RAMCARD e SOFTCARD e VIDEOTERM e SOFTVIDEO SW e PROGRAMMER * PROTOCARD e INTF. DISKS 
e INTF. PRINT e SATURN 1928K RAM. * SATURN 64K RAM. * SATURN 32K RAM. * RANA QUARTETO e MICROMODEM Il 
e MICROBUFFER Il e MICROCONVERTER Il E MICRO VOZ Il E ULTRATERM E ALF 8088 CARD 
E AB00 DISK CONT E MULTIFUNCTION CARD E SUPERSERIAL 


MICROCRAFT MICROCOMPUTADORES LTDA. 
Administração e Vendas: Av. Brig. Faria Lima, 1698 - 1º andar - Cj. 11 - CEP 014592 
Fones (011) 2192-6986 - 815-6723 - 814-0446 - 814-1110 
Telex: (011) 21157 MCPT (BR) - São Paulo - SP - Brasil 





craft 





E E 
a extensão de sua mente. MICROCOMPUTADORES LTDA. 


Av. Brig. Faria Lima, 1.698 - 1º andar - Cj. 11 - CEP 01452 
Tels.: (011) 212-6286 e 815-6723 - São Paulo - SP - Brasil 
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Nunca 
compre uma. 


coisa que você 


não vai usar 


Leve logo um microcomputador 
TK 85, porque ele é realmente fácil de 
usar: já vem com manual de instruções, 
que ensina, em português claro, 
a linguagem Basic. 
A partir daí, você pode preparar 
seus próprios programas ou utilizar as 
centenas de programas que já existem 
no mercado, para cadastrar clientes, controlar 
estoques, manter em ordem o orçamento 
familiar, fiscalizar a conta bancária, estudar 
matemática, estatística, jogar xadrez, guerra 
nas estrelas, e o que mais você puder imaginar. 
E além disso tudo, o TK 85 tem 
também o preço mais acessível do mercado. 
Peça uma demonstração. 


TK 85,0 micro que você pode usar 


computadores pessoais 
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HURLEY, L., Programação 
TK-82/TK-83/TK-85/CP-200, 
Editora McGraw-Hill. 


Este livro destina-se às pessoas 
que estão se iniciando no campo 
da computação. Através dele, o 
leitor aprenderá a programar em 
BASIC baseando-se em um con- 
junto de programas que se ajus- 
tam ao TK-82, TK-83, TK-85, 
CP-200, ZX-81 e TS-1000 com 1 
Kb ou 2 Kb de RAM. 

Através de um texto simples, 
com ilustrações, o livro dá expli- 
cações básicas sobre computador 
— classificação das teclas, de- 
senho, movimento, números, 
tempo e como processar progra- 
mas — o que possibilita ao leitor 
rápida compreensão. 

Cada capítulo começa com um 
programa curto e fácil, como por 
exemplo, os de movimentos, jo- 
gos e enigmas que, apesar de sim- 
ples, são capazes de despertar 
grande interesse nos iniciantes. 


TOWNSEND, C., dBase /! — Guia 
do Usuário, Editorã McGraw-Hill. 








MO livro é um guia prático, in- 
formativo e claro para profissio- 
nais que queiram utilizar e proje- 
tar programas com o software* 
dBase || — Banco de Dados. 

Iniciando com Installation e 
passando por Information File Or- 
ganization, Records e Databases, 
o leitor será conduzido para Sis- 
temas, Programações estruturadas 
8 outros tópicos mais avançados. 

dBase Il — Guia do Usuário 
apresenta um resumo de técnicas 
que permitem ao usuário domi- 
nar completamente este software 
para Banco de Dados. 


CASTLEWITZ, C. M., Visicalc — 
Guia do Usuário, Editora 
McGraw-Hill. 


ES 
Guido Ususrio 
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Embora já tenham surgido vá- 
rios outros programas mais sofisti- 
cados, o Visicalc continua sendo 
amplamente usado. Isso se deve a 
sua eficiência e ao seu bom preço 
em relação aos novos produtos no 
mercado. O Visicalc é uma pla- 
nilha eletrônica de cálculo e pode 
ser visto como uma calculadora 
completada com funções residen- 
tes que obedecem a comandos 
programados, para serem entendi- 
dos por ela. Qualquer negócio 
profissional ou problema de con- 
tas domésticas que precisam ser 
resolvidos com lápis, papel e uma 
calculadora, podem ser rapida- 
mente solucionados através deste 
tipo de programa. Uma das vanta- 
gens do Visicalc é que, caso haja 
alguma al: ão no item ou na 
folha, não é preciso redigitar a 
folha inteira, o programa faz esse 
trabalho. 

O Visicalc — Guia do Usuário 
é um guia prático para a utiliza- 
ção deste software, por isso, ele 
deve ser usado como um texto de 
acompanhamento, isto é, suas li- 
ções devem ser seguidas juntamen- 
te com o computador. 

Este livro vai além dos concei- 
tos básicos, fornecendo técnicas 
avançadas e especiais, como tam- 
bém métodos que podem ser usa- 


dos para resolver os problemas 


que visam preparar o leitor para a 
elaboração de relatórios profissio- 
nais, assim como fazer com que 
ele obtenha o máximo em quali- 
dade e eficiência em sua ativida- 
de 


O livro trata, entre outros, dos 
seguintes assuntos: Entrada de da- 
dos, Definição de cálculos, Alte- 
ração do mostrador da tela, Có- 
pia de dados, Controle de cálcu- 
los e Técnicas de geração de mo- 
delos. 


GON VES, A.; SAMPAIO, F.; 
ALBERT , Po, 
BASIC Para 1º e 2º Graus, 
Editora Miguel Couto. 





BBasicpara 12 e Z Grausé 
destinado a alunos que estejam 
cursando da 72 série do 19 Grau 
até a 32 série do 29 Grau. O obje- 
tivo do livro é transmitir informa- 
ções sobre a linguagem BASIC e 
suas aplicações, de maneira didá' 
ca. O primeiro capítulo é um his- 
tórico da evolução humana, no 
sentido de medir quantidades e re- 
gistrá-las. Ele trata dos primeiros 
instrumentos utilizados pelo ho- 
mem — seus próprios dedos e pe- 
quenos objetos — até os sofisti- 
cados aparelhos de hoje, os compu- 
tadores. Os capítulos 2 e 3 explicam 
O que é um computador, como ele 
funciona, e o que são e para que 
servem as li de computa- 
ção. O quinto capítulo é sobre 
como operar o aparelho (como li- 
gá-lo, o teclado, teclas com ca- 
racteres especiais, recursos espe- 
ciais da tecla SHIFT). A partir 
daí, a obra se baseia no CP-500 e 
seus similares, apresentando exer- 
cícios com e sem o micro, basea- 
dos em assuntos como: instruções 
e comandos (PRINT, LET, CLS, 
NEW); programação; variações da 
linguagem BASIC (GOTO, IN- 
PUT); concatenação de instru- 
ções; funções aritméticas; funções 
trigonométricas; operações do 








MODO EDIT e uso do gravador. 
O livro contém, ainda, dois apên- 
dices: programas-exemplos e men- 


s de erro. 

BASIC para 1º e 2º Graus po- 
de ser usado durante um ano le- 
tivo, com uma aula semanal de 
50 minutos. Há no livro uma su- 
gestão de sala-ambiente, utilizan- 
do micros e alguns programas em 
linguagem BASIC, abordando 
questões do vestibular Cesgranrio. 

O conteúdo do livro traduz as 
atividades realizadas, com alunos, 
professores e funcionários, no Co- 
légio Princesa Isabel do Rio de Ja- 
neiro, em 1984. 





SAWUSCH, M., 1001 Aplicações 
para o seu Computador Pessoal, 
Editora Campus. 


BE apresentando uma longa e va- 
riada lista de possíveis aplicações, 
este livro discute como criar o 
programa para cada uma delas, ge- 
rando, ainda, diversas outras idéias 
e possibilidades. 

Os programas se destinam aos 
mais diversos usos e preferências, 
e suas aplicações cobrem os mais 
variados campos: finanças e negó- 
cios (Avaliação do Estado do Imó- 
vel, Dispositivo de Vendas, Decla- 
ração de Rendimentos, Tabula- 
dor); matemática (Análise Estat(s- 
tica, Resolução de Equações Si- 
multâneas, Programa/Plotter); 
ciência e tecnologia (Cálculo da 
Eficiência do Uso da Energia, Pro- 
grama de Antena, Recreações Ma- 
temáticas); educação (O Compu- 
tador como Instrutor, Simulações 
Educativas); passatempos e jogos 
(Computadores e o Xadrex, Escri- 
tor de Histórias, Mágicas, Jogos de 
Simulação) e gerais (Catálogo de 
Endereços e Telefones, Cálculos 
das Despesas de Luz, Gás e Água, 
Auxílio aos Deficientes). 

Para ajudar a colocar as idéias 
em ação, o livro apresenta tam- 
bém os próprios programas, fluxo- 
gramas, diagramas e ilustrações 
que podem ser acompanhados pas- 
so a passo. 
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Na tela do seu Sinclair aparece uma cidade com muitos prédios. Você terá 
que fazer um vôo rasante noturno debaixo de uma tempestade... 








Aperte os cintos e 
pilote no escuro! 


ocê é um piloto cuja missão é 

sobrevoar uma cidade à noite 

num vôo rasante por entre os 

edifícios, durante uma hora. 
O avião, porém, não possui alguns im- 
portantes instrumentos de vôo, além de 
estar com os faróis quebrados. 

Agora, só lhe resta utilizar sua perspi- 
cácia e reflexos rápidos, pois está muito 
escuro e tudo o que você consegue dis- 
tinguir vagamente é a silhueta dos pré- 
dios lá embaixo. Tentar um vôo rasante 
é muito perigoso, porque está ameaçan- 
do um temporal e, embora algumas nu- 
vens se dissipem tão logo você as atraves- 
se, outras estão carregadas de eletricida- 
de e podem destruir seu pequeno avião 
(se isto acontecer, entretanto, o micro 
lhe dará a oportunidade de tentar nova- 
mente, quando as condições atmosféri- 
cas estiverem melhores). Procure tam- 
bém nao destruir as antenas dos edifí- 
cios, até"porque uma colisão numa delas 
poderá ser fatal. Por isso, manobre com 
cuidado e prove que você é capaz de 
vencer esta prova. 

A digitação deve ser iniciada carre- 
gando-se o Micro Bug e criando-se uma 
linha 1 REM com 34 caracteres quais- 
quer. Dê entrada no Bloco Assembler, 
operando o comando M. Feito isto, re- 
torne ao BASIC e digite a listagem 1. 
Ela vai introduzir o desenho da cidade 
na variável CS. Digite as linhas tal como 
estão na figura 1, introduzindo uma li- 
nha de cada vez. (Os caracteres assinala- 
dos ( [] ) devem ser digitados em vídeo 
inverso — GRAPHICS SHIFT 5, GRA- 
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cs(1) 








cscz) 





cs(3) 


cs(a) 


cs(s) 


cs(6) 


es(7) 








cs(s) 

















cs(9) 











csc10) 








cesc1m) 


csc(1z 


Figura 1 


PHICS SHIFT 8 e GRAPHICS SPACE.). 
Ao final de cada linha, tecle ENTER ou 
NEWLINE e confira o desenho. Se esti- 
ver tudo certo, aperte qualquer tecla e 
repita o procedimento para a linha se- 
guinte. Se houver erro, tecle N e repita o 
procedimento. 

Finalmente, apague as linhas 4 a 15 e 
complete o programa digitando a lista- 
gem 2. Não use RUN nem CLEAR. Gra- 
ve o programa digitando GOTO 300. As 
teclas 6 e 7 movem o avião e, ao final do 
jogo, qualquer tecla pressionada inicia 
uma nova partida. Este jogo admite tam- 








bém que você o modifique ao seu gosto. 
Uma sugestão é incrementar o programa 
que o micro faça o desenho da ci- 
dade aleatoriamente. Assim, quando vo- 
cê estiver cansado de enfrentar o mesmo 
vôo, poderá fazer um novo percurso. 


Cláudio Costa é desenhista free-lancer e tem 
como hobby a programação de microcompu- 
tadores. 
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com 


DIDENTERTO 


você já encontra na 


computer store 


O seu microcomputador CRAFT Il plus, 
pode agora ter acesso ao VIDEOTEXTO* - o 
banco de dados da TELESP, com imagens à 
cores, através de uma interface RS 232-C, um 
modem assíncrono e um software dedicado, 
à venda e em demonstração na SACCO. 


Torne-se um usuário do VIDEO-TEXTO, 
opcionalmente também do Projeto Cirandão, 
e garanta hoje o seu presente de Natal. A sua 
família também vai poder usar e gostar 
muito. 

* São Paulo - Santos - Campinas 


SACCO Computer Store 


Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
São Paulo - SP - Tel.: (011) 852-0799 





Sessão 
western 


Estamos em pleno velho oeste e você se vangloria junto a seus 
amigos de ser o melhor gatilho de toda a região. Isto chama a atenção 
do estranho forasteiro de olhar metálico que o observava calado num 


canto do sal/on. Com um ar desafiador, ele — um micro da linha 
“Sinclair de 16 Kb ou mais — chama você, na frente de todos, a provar 
essas qualidades. Agora só lhe resta aceitar o desafio. Que vença o 


melhor! 





ste é um jogo para testar a sua habilidade e os seus re- 

flexos. Durante um intervalo de tempo qualquer, será 

lançada uma série de moedas para o alto. Você rece- 

berá uma munição inicial de oito balas, mas a cada 
moeda alvejada você ganhará mais munição. O número de pon- 
tos feitos será tanto maior quanto mais longe a moeda atingida 
estiver. Entretanto, a cada erro, além da munição, você perde 
10 pontos. Não atirando, você não perde pontos, mas o compu- 
tador considerará que você não acertou o alvo e o número de 
alvos é escolhido por ele. Se o seu escore for muito baixo, o 
computador mandará você praticar mais, dizendo que “'você é 
péssimo no gatilho”. Agora, prepare-se como um cowboy e 
boa sorte! 


O PROGRAMA 


Totalmente escrito em BASIC, o programa é simples, tendo 
como únicos detalhes a utilização de operadores lógicos e efei- 





Cláudio Costa 


tos de animação. Se o usuário pretender realizar alguma modi- 
ficação, as principais dicas são as seguintes: 

e linha 35: define o número de alvos e, consequentemente, o 
tempo de jogo; 

linha 95: estabelece as colunas de impressão da moeda; 
linha 285: soma os acertos; 

linha 350: calcula os erros; 

linha 355: calcula o escore (as classificadas podem ser modi- 
ficadas). 

Como este programa utilliza muitos recursos gráficos, é pre- 
ciso tomar cuidado na hora da digitação para não trocar carac- 
teres ou omitir espaços em branco. Grave o programa com 
RUN 450. As linhas seguintes à 450 desenham apenas a apre- 
sentação do programa e você pode omiti-las, se desejar ganhar 
tempo de carregamento. 


Cláudio Costa é desenhista free-lancer e tem como hobby a programa- 
ção de microcomputadores. 
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a] 
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ER 
IF 


ACONSELHO 
400 PRINT AT 15, 13; "TECLE RS P- 
;TAB 18; "DE NOVO" 

Ro IF INKEY g< 


D 


MNZHRmTZO 2» 
- de- 


H 


AND 
AND 
INT 


BLUO 


INT 














PRINT TRE 


rs 





= 
15; "E ERROU 
385 PRINT AT 
geo: oo a 


(PERA 


D+1 
7 THEN PRINT AT BE,R 
<527 THEN GOTO 125 
18 
1 
M-P 
AT,10,7;"Nº;AT 11,8 





12] co + 


O 
mn 
[2] 
n 
=] 
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11; (“SUA MUN 
NOT Mo +C TEMP 







ânó R<>1); 


| 12; "VOCE ES 
C<=1) +(“"PESSI 
PJ +(CRUIMO AND 
'AZORVEL" AND C 
i IM" AND C>5 AND 
AND C=10) 

TRE 12:"N0 GATILHO" 
THEN PRINT AT 15,98 


F 
“22 
AND 






PRATICAR MAIS" 


“B"” THEN 
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Ca 

E 

AT 6,10; "UOCÊ ACERTO 
laio TRE 





GOTO 40 





418 RUN 
450 SAVE “CONBOY" 
no 7 1º:7 nO LR 
45º PRINT TRE 7/0 REAR MRAD AA 
. 
quo PRINT TAB 25" Pad HERERSE ES 
ps PRINT TEE 7," EHEREE 
47 

4: 

4 

4 

É 

s 

E 

5 

si 

DO 

TI 

5 

5 





















MUNIE RO. 
PONTOS.' 






METASOFT 


INFORMÁTICA LTDA. 


CONSULTORIA ORGANIZACIONAL 
DESENVOLVIMENTO DE SOFTWARE 
IMPLANTAÇÃO DE SISTEMAS 
TREINAMENTO 


SISTEMAS DESENVOLVIDOS: 


€ ADMINISTRAÇÃO DE IMÓVEIS 

e CONDOMÍNIO 

€ CONTABILIDADE 

€ CONTAS CORRENTES 

€ GERÊNCIA DE 
REPRESENTAÇÕES 

O MALA DIRETA 

e OPEN MARKET 


SEGMENTO DO MERCADO: 
Mini e microcomputadores 

ecP/M e Maquis 

€ Labo 8221 € Unitron 

€ Itautec ecP500 

€ Sistema 700 e compatíveis 

e EBC 
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No final da guerra, restam às duas * 


“grandes potências” apenas bases de 


mísseis. Vence aquela que arrasar o inimigo, neste programa para Apple 








Guerra na 


montanha 


André Koch Zielasko 
—— 0 —— 


(o) 


Guerra na Montanha é um jogo desenvolvido num 
Micro Engenho, modelo antigo, com 48 Kb e drive, 
sendo portanto compatível com os equipamentos da 
linha Apple, empregando cores e o recurso sonoro. 
O jogo cria uma tela de alta resolução representando uma 
montanha, se vista de perfil. Nos dois extremos da tela estão 
implantadas bases de mísseis, que serão controladas indepen- 
dentemente por dois jogadores. O objetivo é destruir a base ini- 
miga, cada um com seu respectivo canhão. Por isso é importan- 
te calcular o ângulo de tiro a partir do primeiro disparo. Deve 
ser levado em conta o fator vento, que pode estar soprando pa- 
ra um lado ou outro, com a velocidade oscilando até, no máxi- 
mo, 20 quilômetros por hora. 
A partida termina quando a base inimiga é destruída. Mas 
apenas com muita sorte isso acontece nos primeiros tiros. Há 


48 








obstáculos a vencer, como a montanha e a mudança da direção 
do vento, que forçará a alteração do ângulo de tiro. Terminada 
a partida, surgem novamente na tela as duas bases de mísseis, 
dispostas em nova área geográfica, isto é, com montanha dife- 
rente ou até mesmo uma cordilheira. A sugestão é marcar a 
partida por sets ímpares: três, cinco ou sete. Muita atenção na 
tarefa de digitar, pois a impressora utilizada não diferencia, co- 
mo deveria, um O de um O. 





André Koch Zielasco estuda linguagem BASIC, FORTRAN, COBOL e 
Assembler. Pesquisa o emprego de micros de lógica Sinclair nas áreas de 
Astronomia e Telecomunicações. Frequentou por dois anos o curso de 
Tecnologia em Processamento de Dados da Unisinos, RS. 
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Guerra na Montanha 


REM 
REM ANDRE KOCH 
REM CX. POSTAL 
REM TRAMANDAI 
REM 

GOSUB 93 


+ RND (1 
+ RND (1) é 


10 + RND (1) + 70:X1 

270 - AND (1) + 77:XL = 
1O:XR = X1 - 40 

Y = vo 

FOR X = 3 TO 

HPLOT x, YO 

vo: NEXT 

IF RND (1) 2 

eb -s 
IF v > 15 
«Dv) 

IF 70 THEN DY = ABS (DY 

, 

IF X > XR THEN DY = SON (vi 
-Y) * 2.5: IF ABS (Y - ví 

, THEN DY = O:Y1 = Y 

HZOO = Y 

HPLOT X,Y TO X,i91:Y = Y + D 
y: NEXT 

RETURN 

REM 

READ NS: READ LN 

DIM SX(LN): FOR 1 = 1 TO LN: 
READ SK(I): NEXT 1 

H = BIBO - LN: HIMEM: H 

POKE H,NS 

POKE 2353, INT (H / 256): POKE 

232,H - 256 * PEEK (23 FoR 
L=H+1TOLN+H: POKEI, 

SXCI — Hz NEXT 

SCALE= 1: ROT= O 

REM 

EK = 3.1415927 / 180 

Fi = 2=0 

GosuB 8oo 

IF RND (1) 

GOsUE 810 

HCOLOR= 5: ROT= DRAW 1 AT 

XO, YO - 13: HCOLOR= 6: DRAW 
LAT XL,VI — 13 

VTAB 23: HTAB INVERSE : PRINT 
” LANCANDO "5: MTAB 30: NORMAL 
PRINT "CARREGANDO! 

F=0 

POKE 33,15 

VTAB 21: HTAB 

LO: "sAL 

POKE 33,40 

FOR OO = 1 TO 3: POKE 
1,110: CALL 900: POKE 0,100 
POKE 1,144: CALL 900: NEXT 
oo 

Die -2 
= XOIYA 
cKK + As 

ROT= 0 

GOSUB 490:F1 = O3XX = XAIYY = 
YA — 15: HCOLOR= 5: GOSUB 65 
O:XA = XO:YA = yo 

IF ABS (XI - XX) < 4 THEN X 
X = XISYY = Yi - 13: GOTO Só 


THEN DY 


«S THEN 470 


INPUT "ANGU 


* SIN (KK * ALJIXA 
= YO - 4:E1 = 2 cos 
, 


+70 
eso 
+90 
700 
710 
720 


730 


IF ABS (XO - XX) < 4 THEN F 

X = XO:YY = YO — 13: GOTO 
seo 
HCOLOR= ROT= O: DRAW 1 AT 
XO, YO — 13: HCOLOR= 6: DRAW 
LAT XL, VI — 13 
GOSUB 820 
VTAB 23: HTAB 1: PRINT “CARR 
EGANDO":: HTAB 30: INVERSE : 
PRINT ” LANCANDO NORMAL 


F=1 
VTAB 21: HTAB 30: INPUT “ANG 
ULO :"sAZ 
GOSUB 820 
FOR OO = 1 TO 3: POKE 0,50: POKE 
1,100: CALL 900: POKE 0,90: POKE 
1,144: CALL 900: NEXT 00 
2 = -20 SIN (KK e AZI:XB 
= XI:VB = Yi — 4:E2 =» 
COS (KK + AZ) 
GOSUB 490:XX = XB:YY = YB — 
15: HCOLOR= 5: GOSUB 650 
IF ABS (XO - XX) < 4 THEN X 
X = XOFYY = YO — 13: GOTO Sé 


IF ABS 1 —- XX) 
X = Xlivy = vid 
seo 

soTo 380 

FOR O = 1 TO 16: HCOLOR= 6 + 
RND (1): DRAW 1 AT XX, YY 
FOR 1 = 2 TO 4: HCOLOR= AND 
(1) * B: DRAW 1 AT XX, YY: FOR 
J = 1 TO 10: NEXT : HCOLOR= 
O: DRAM 1 — 1 AT XX, YY: NEXT 


4 THEN X 
soro 


DRAW 
4 AT XX, vY 
SCALE= 
BOSUB 130 
HCOLOR= 5: ROT= O: DRAW 1 AT 
XO,YO - 13: HCOLOR= 2: DRAW 
LAT X1,Yi — 13 

- O THEN S! = Si + 1: GOSUB 

soro 480 

= 1 THEN S2 = S2 + 1: GOSUB 

soTO 390 


NEXT O 


1 AT xx, vY 
FOR 1 = 2 TO 3: HCOLOR= 5: DRAW 
I AT XX,YY: FOR J = 1 TO 10: 
NEXT : HCOLOR= 0: DRAW 1 - 
1 AT XX, YY: NEXT 
FOR 1 = 1 TO 3: NEXT : DRAW 
3 AT XX, YY 
RETURN 
IF F = 1 THEN 750 
XN = XAIYN = YA 
XA = XA + ELIVA = YA + DISDI 
DI + G:EL = El + Wi 
IF YN< 1 O0RYAC1 THENTIO 


HCOLOR= O:P = VIVA) + XA / 
7:A = PEEK (SS) - PEEK (58 
»3 HPLOT XN,YNID = PEEK (P) 
: HCOLOR= 3: HPLOT XA,YA: IF 
Q< > PEEK (P) AND XA < 27 
7 THEN 700 

RETURN 

XN = XBIYN = YB 

XB = XB + EZ:YB = YB + DZ:D2 
DZ + G:EZ = EZ + Wi 

IF YN< 1 ORVB< 1 THENZ60 


HCOLOR= O:P = YX(YB) + XB / 
7:A = PEEK (55): HPLOT XN,Y 
N:O = PEEK (P): HCOLOR= 3: HPLOT 
XB,YB: IF O< > PEEK (P) AND 
XB > 3 THEN 750 

RETURN 

VTAB 24: HTAB 10: PRINT "e * 
Sis" HTAB 27: PRINT "e 
“sS24" ers 

W= 19 — INT ( RND (1) « 40) 
2w1 = W / 10000 


970 


980 


990 


1000 
1010 


1020 


1030 


1040 


VTAB 22: HiAt 1/7 PRINT “VEN 
TO: ABS (W)5” "5: HTAB 1 

9: VTAB 23: IF W< O THEN PRINT 
RETURN 

PRINT o] 

RETURN 

FOR 1 = 900 TO 900 + 18: READ 
A: POKE I,A: NEXT 1: RETURN 


DATA 173,48, 192,136,208,4,19 
8,1,240,8,202, 208, 246, 166,0, 
76,132,3,96 
DATA 4,143,0,10,0,33,0,60,0, 
103,0,146,146,146,58,47,45,5 
3,61,63,63,55 
DATA 45,45,45,62,63,63,55,45 
,45,45,7,0,146,146, 186, 123,7 
3,9,21,214 
DATA 251,251,187,78,77,2 
7,13,13,13,13,30,223,255,63 
255,31,7,0,18 
DATA 77,149,233,219,221,219, 
223,151,1 9,77,105,9,77 
+ 149,250,251,251,59 
DATA 31,223,215,187,77,105,7 
5,13, 109,77,213,219,21 
163,45 
+ 228,219,14,30,1 
19,150,78,9,151,77,9, 
109,42 
DATA 150,18,151,151,223,28,2 
8,148,242,31,196,28,23,22 
173, 73,73,73,9,5,0 
HOME : GOSUB 
VTAB 5 
PRINT “DUAS BASES ESTADO LOCA 
LIZADAS EM LADOS 
PRINT "OPOSTOS DE UMA CORDIL 
HEIRA COBERTA DE NEVE. " 
PRINT “O VENTO SOPRA CONSTAN 
TEMENTE 
PRINT "COM VELOCIDADE DE, NO 
MAXIMO 20 KM/H. * 
PRINT 
PRINT “SUA MISSAO E” CALCUL 
AR O ANGULO APROPRIADO" 
PRINT “PARA O LANCAMENTO DO 
PROJETIL NUCLEAR” 
PRINT “DA SUA BASE E ENTAO. 
PRINT : PRINT : HTAB 10: FLASH 
: PRINT OS DESTRUIR 
Z NORMAL 
PRINT : PRINT “A BASE INIMI 
SA titres 
PRINT : PRINT : INPUT “TECL 
E <CR> PARA CONTINUAR" E XS 
GOSUB 850 
HOME 
VTAB 3 
PRINT “PARA CUMPRIR SUA MIS 
SAD, VOCE DEVE” 
PRINT "CALCULAR O ANGULO AP 
ROPRIADO DA” 
PRINT “TRAJETORIA DO SEU CA 
NHAO, ” 
PRINT “DIGITANDO O NUMERO C 
ORRESPONDENTE" 
PRINT "SEGUIDO DE <CR>" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
VTAB 22: INPUT “TECLE <CR 
PARA COMECAR À BATALHA... “5X 
. 
HOME : VTAB 22: MTAB 10: PRINT 
“PREPARE-SE PARA A BATALHA! ! 
RETURN 
TEXT : HOME 
VTAB 8: HTAB 6: PRINT "GU 
ERRA NA MONTANH 
A “ 
FOR P = 1 TO 1006 
HOME 
REM AQUI VAMOS NOS ... 


NEXT P 


RETURN 


ARQUIVE NA MEMÓRIA: EM FEVEREIRO, 
EDIÇÃO DE MS SOBRE BANCO DE DADOS 


e Banco de dados em micros e MUMPS, um sistema para manipulação de dados. e Reportagem sobre os 
micros que estão acessando bases de dados e SENSACIONAL programa para gerenciar dados no TRS-80 
e Manipulação de vídeo em Assembler para a linha Sinclair e E não é só: dicas sobre 

programação Assembler, Lógica de programação, jogos, programas e... BUFFER, UM NOVO 

ESPAÇO EM MS. CONHEÇA! 











Três astronautas estão perdidos num planeta desconhecido e só você poderá 
salvá-los. Mas cuidado com as estrelas que aparecerão na tela do seu Sinclair 








Missão resgate 


Cláudia Eleone Gomes 


ocê é o comandante de uma nave de resgate (A) e 
precisa salvar três astronautas que estão isolados 
num planeta desconhecido. Para realizar esta missão, 
você tem cinco naves, que serão perdidas toda vez 
que houver um choque com uma estrela, um pouso fora das 
plataformas de resgate ou a saída do espaço pelas laterais da 
tela. O movimento das naves é feito através das teclas 5 (esquer- 
da)e 8 (direita). A nave é lançada aleatoriamente pela nave mãe. 
O jogo apresenta os seguintes níveis de dificuldade: 
determinar a velocidade inicial da nave de resgate (pelo jo- 
gador), que vai de 1 a 4; 
a cada resgate a velocidade da nave aumenta; 
complétada uma missão (três resgates), o céu fica mais es- 


trelado e surgem outros três astronautas para serem resgata- 

dos. 

Sempre que o jogador completar três missões, ganhará outra 
nave. No caso de perder todas as naves, ainda restará a opção 
de ganhar outras cinco naves e continuar o jogo no mesmo ní- 
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vel de dificuldade em que se encontrava antes de perder a úl- 
tima nave ou começar a jogar novamente com a dificuldade ini- 
cial. Boa sorte e feliz missão! 


DIGITAÇÃO 


Para a parte em Assembler, carregue o computador com o 
monitor Assembler publicado em MS 23 e entre com os blocos 
1, 2,3 e 4, não se esquecendo de antes criar as quatro linhas 
REM, do início da listagem BASIC, com os seus respectivos 
números de caracteres. Você pode utilizar também o MICRO 
BUG. Após isso, elimine o monitor e digite o BASIC. Termi- 
nado, dê RUN 2000 para gravar. 


Cláudia Eleone Gomes é professora formada pelo Instituto de Educação 
e com curso de Introdução em Processamento de Dados e Programação 
em Microcomputadores realizado no SENAC. É usuária de um TK-85 
há um ano e meio. 
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1030 CoDE 57 
RS N 
10.0 
aooo ESG 
aoio co 
soco =PE 
163 R=1 
R=0: 
5010 IF R=i THE 
Soiz IF R=E THE 
S0i: IF R=0 THE 
5 IF POScPE 
1 +710 THE 
S0Zi FOR L=z0 
S0Z2 PRINT ET 
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NE 
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ss10 FRINT 
SS1S NEXT 
ssao LET 1 
5530 GOTO 
6000 EAND 

PRINT 


a PRINT 





F 





N O 
OR INKEYS 
1O+VAL INKEYS 






LI SD 
9999996509596 


.o 
Em PRINT AT 4+1454RND,1+29+RND 
20 NEXT N 


RETURN 


MUITO INTELIGENTES... 


SIC. 


dstar e Supercalc. 






[Td tel.: 284-6949 c/Liege 
Av. 28 de Setembro, 226 Lj. 


110V. Isabel 






































TESBI INFORMÁTICA LTDA. 
SÓ PARA EMPRESÁRIOS 





— A sua contabilidade atende a 
você ou somente aos fiscais? 

— Você tem um bom controle 
de contas a pagar eareceber? 

— A sua administração de imó- 
veis é realmente eficiente? 

Na TESBI Informática você en- 
contra programas de contabili- 
dade CAP/CAR e Administra- 
ção de Imóveis voltados para 
você, Gerente eficiente. Todos 
desenvolvidos em DBII ou Ba- 


Cursos práticos de dBase, Wor- 


Melhores Informações pelo 





Veja em quanto tempo você é capaz de ordenar 
um tabuleiro de letras, nos micros da linha Sinclair 








A, D, B... ordene as letras 


Roberto dos Santos Silva 


programa Ordena Letras simula um antigo passatem- 

po conhecido nosso, em que o objetivo é colocar em 

ordem alfabética um pequeno tabuleiro de letras. 

O programa é todo em BASIC, desenvolvido para 
equipamentos Sinclair, com 16 Kb de RAM. 

Após o comando de execução, o programa demora cerca de 
10 segundos, pois a sub-rotina de inicialização, na linha 40, de- 
senha o tabuleiro, embaralha as letras e mostra algumas infor- 
mações sobre o jogo. 

A seguir, vejamos algumas dicas importantes: 

o controle para movimentação sobre o tabuleiro e para tro- 
ca de posição das letras é feito através das teclas 5, 6, 7,8€ 0, 
sendo portanto possível usar o joystick para jogar; 

após a sub-rotina de inicialização, e após cada troca de posi- 

de uma determinada letra, o cursor estará na posição em 
branco do tabuleiro (embora não apareça); 

é possível movimentar-se à vontade em todas as direções, 
mas só se pode fazer 150 trocas de posições; 

só é possível mover uma posição de cada vez; 

ao ordenar todas as letras, o espaço em branco deverá estar 
situado na última posição do tabuleiro; 

se for dado algum comando impossível de ser executado o 
cursor piscará; 

para trocar uma letra de posição, deve-se posicionar o cur- 
sor na letra desejada e apertar o botão de tiro do joystick (ou a 
tecla 0), sendo que esta letra deverá estar ao lado da posição 
em branco, ou imediatamente acima ou abaixo; 

- para mudar o número de trocas possíveis de letras, altere as 
linhas 22, 32 e 74. 





Roberto dos Santos Silva cursa o 3º período do curso de tecnólogo em 
«é Armenia de dados nas Faculdades Reunidas Nuno Lisboa. Atual- 

te desenvolve programas para ED-281 e TK-85, tendo aprendido a 
1º cede BASIC em livros e revistas especializadas. 
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Ordena Letras 


REM 
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DRDENA LETRAS-RSS-08035 




















2 LET NP=0 

5 
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E ((LI=L AND RB 
K (CO=K AND RBS (L- 





O 15 
CO;LEII(LTI-4) 2, 
AND CO>=14 THEN L 








































ET. CO 

3 5“ AND LI<=10 THEN L 
ET L 

a ="7" AND LI>=8 THEN LE 
THE 

11 ="5" AND CO<=16 THEN L 
ET el 

12 ="Dº THEN GOTO 24 

153 AT LI,CO.CHR$ (CODE L 
S((L. (C0-10) +2) +128) 

lá 

15 2, 1(K-10) 22) =L5 
(4LI- 12) 

16 1 + (CO-10) 22) = 








17 PRINT AT LI,CO; ço 
; PRINT AT L,K; e (L-4) 7/2, 








GOTO 24 


E 
=AS(NE TO NE) 


“om poronopo 
sem pe cano 


*2, 10+K 32; LS (L 
THEN LET LI= 
THEN LET CO= 


GOTO 35 
RUN 


“PONTOS 

MES PENTE 
AT 17,3;01 
AT 15 ; 

STIR OU 

JANDO TERMINAR.":; AT 

TERMINAR ANTES DE 
3; "TROCAS MARCARA POr 
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PROGRAMAÇÃO OPERAÇÃO DIGITAÇÃO 


(COBOL &BASIC) 
PROGRAMAÇÃO ESTRUTURADA (para quem já fez Cobol ) 


m Ustameger:=— 


MÉIER NITERÓI MADUREIRA 
MEDINA 1275/3093 AURELINO LEAL 25 EDGAR ROMERO 244 s, 301 




















Um desafio para os usuários de Sinclair que gostam de emoção e suspense: tentar escapar 
de uma catástrofe que está destruindo o planeta 








O sobrevivente 


Sérgio Roberto Gouveia 


teras em toda a extensão da Terra. Se o jogador cair 

em um desses buracos provoca o fim do jogo. Ele é 
bastante interessante, podendo ser jogado individualmente ou 
com amigos, para ver quem sobrevive mais tempo, antes de ser 
tragado pelo chão, ou escapa ileso. 

Você vai manobrar uma grade de 21 x 31 pontos, utilizando 
as teclas com setas (5, 6, 7 e 8) ou um joystick. Durante a fu- 
ga, cada vez que você engolir um dos pontinhos da grade, acu- 
mulará dois pontos no escore. Passando por um local onde há 
um X em vídeo-reverso, perde um ponto. O trânsito pelos es- 
paços vazios não altera o escore. 

Durante o jogo é preciso ter muita atenção, pois enquanto 
se está caminhando o terremoto vai provocando novas crateras 
pela grade afora. Permanecendo parado ou se movimentando 
durante muito tempo em uma só direção, inevitavelmente você 
será tragado por um buraco. O jogo termina nesse momento ou 
quando o jogador alcançar a última coluna à direita da tela. 
Neste segundo caso, o sobrevivente terá uma bonificação extra 
de 100 pontos adicionada ao seu escore. Esse escore aparecerá 
no topo da grade ao final de cada partida. Pressionando-se 
qualquer tecla a grade é recomposta, dando início a uma nova 
partida 


O grau de dificuldade do jogo pode ser ajustado, modifi- 
cando-se os valores inteiros da linha 1075. Quanto maior 
for o número inteiro, mais fácil será o jogo, e vice-versa. Embo- 
ra preparado para rodar em equipamento com maior capacida- 
de de memória, O sobrevivente pode ser digitado em aparelhos 
de 2 Kb, desde que se eliminem a tela de abertura, as telas de 
atenções (linhas 1000 a 1054, inclusive) e mais as linhas 1087 
a 1094, 


objetivo de quem joga O sobrevivente é procurar es- 
O capar de um terrível terremoto que está abrindo cra- 


—— ES a 
Sérgio Roberto Gouveia é geógrafo, com Mestrado em Urbanismo, tra- 
balha em to Urbano e Regional no Governo de Santa Catari- 
na e tem um micro de lógica Sinclair, que utiliza como hobby. 
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1029 NEXT A 
12930 FOR A=0 TO 3 

1931 PRINT AT 2Q,A;CHR$ S;AT 21,A 
;CHRS S 

NEXT R 

PRINT AT 1,5; 
ata aa 


“PRINT BT 3,2; “USE AS TECLAS 


SETAS PARA” 
035 PRINT AT.S,2; "SE MOUVIMENTAR 












































NA DIRECRO DESE' 
10368 PRINT AT 2; "JADA. NAO FIO 
UE PARADO OU 





, 2; "MOVIMENTANDO 
CRO,POIS VOC 


1037 PRINT aT 
NUMA MESMA DIRE 
1035 PRINT AT 
E PODERA CAIR 
1035 PRINT AT 
GO TERMINA AI 








l1,2;" 
NUM" 








2; "BURACO. O JO 









1040 PRINT AT 2; “QUANDO VOCE 
ATINGIR A COL 
1041 PRINT AT 17,2;"81. NESTE SE 





GUNDO CASO, 
a PRINT AT 








“AINDA GANHA 








Iô4a NEXT T 




















19045 PRINT AT “DE 100 PONTOS 
| DBJETIVO 
) PRINT AT 5 “JOGO E ACUMUL 
AR O MAXIMO DE ? 
1047 PRINT AT 7,2;"PONTOS NO SCO 
RE.CADA PONTINHO 
1048 PRINT AT 3,2; “ENGOLIDO CONT 
A + 2 PONTOS E é 
1049 PRINT AT 11 CADA E ENGOL 





IDO RETIRA 1 PO 





1050 PRINT AT 13,2;“TO, O SEU SC 
ORE APARECERA RO” 
1051 PRINT AT 15,2;"“FINAL DE CAD 


A PARTIDA. 
dove PRINT AT 17,2;" 


1055 PRINT AT 12,2; "DIGITE AGORA 
QUALQUER TECLA * 
1054 PAUSE  4Eé 
1055 
1056 
12957 
1055 
1059 
1960 
1961 
1062 NEXT L 
10653 LET L=iINKEYvg=" 

































- (INKEYy$='7" AND X>1) 
1064 LET C=(INKEy$g="8" AND Y«<31) 
- (INKEY$="5" AND w>1) 
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1065 PRINT AT X,Y;* 

1066 LET x=X 

1067 LET ' 

1068 PRI Xavi uo 

1069 IF Y>30 THEN GOTO 1086 

1970 LET MIX, Y) 42 

1071 LET j=-2 

1072 LET 

1073 IF NOT T THEN GOTO 1083 

1074 IF T>B THEN GOTO 1055 

1075 LET T=INT (RND4343) 

1075 LET H=X+T&L 

1077 IF H>21 THEN LET H=21 

1078 IF Hci THEN LET H=1 

1079 LET I=v+TãC 

1080 IF I<i THEN LET 1=51 

1081 IF 1>31 THEN LET 1=31 

1082 GOTO 1063 

1083 PRINT AT H,I;CHR$ S;AT HI; 

CHR$ 134;AT H,I;CHR$ G;AT H,I;CH 

R$ 134;AT H,I;CHR$ 189 

1084 LET MiX,vi=-5 

2055 TF H<)X/OR Icy THEN GOTO 1 

1085 PRINT AT Q,12;CHR5 184;CHRS$ 
168; CHR$ 180;CHR$ 185,CHR$ 170; 

CHR$ 142;5+1100 AND Y>30] 

1087 PRINT AT 21,2; "QUALQUER TEC 


LA PARA NOVO JOGO" 
1085 PAUSE 4E4 

19089 FOR A=lzZ TO 21 

1290 PRINT AT 2,A;CHR$& 5; 
1291 NEXT A 
1992 GOTO 1 
1995 SAVE 
1054 








RUN E 








NUNCA É TARDE PARA LER 


siste 


Se você 

não adquiriu 
MICRO 
SISTEMAS 
na data certa, 
nós lhe damos 
uma segunda 
chance! 





e Seu pedido pode ser feito 
por carta, indicando 
quais os números 

atrasados que você quer. 


e Acrescente a este um cheque 


cruzado, nominal à ATI 
Editora Ltda., no valor 


correspondente ao seu 
pedido. 
e E não se esqueça de incluir 


o seu endereço para 
que nós possamos 
fazer a remessa. 








| ——eeeeeeeeee——e 


Endereços: 
Rua Oliveira Dias, 153 — Jardim Paulista — São Paulo/SP. 
— CEPOI433 — Teis.: (011) 8539-3800, 853-7758 e 881-5668. 


Av. Presidente Wilson, 165 — grupo 1210 — Centro — 
de Janeiro/RJ — CEP 20090 — Teis.: O aa 828 aa 
6437 e 2626306. 

















































































































Renato Degiovani 


Jogos, jogos e mais jogos. Talvez esse seja um dos mais sérios assuntos da 
microinformática na atualidade. Para comprovar essa teoria, basta consultar 
qualquer tabela de software e se terá uma idéia exata do volume de programas 
de lazer disponíveis no mercado. Numa área onde não existem preconceitos 
de linha ou porte de equipamento, era de se esperar que o jogo assumisse um 
papel de importância quase fundamental, afinal, quem resiste à tentação de 
rodar o Aztec ou o Assault quando o patrão dá uma saidinha, ou enquanto a 
esposa está vendo a novela das oito? 

Quem já presenciou um teste ou demonstração de um equipamento sabe 
que, no final e após rodar diversos utilitários e aplicativos para as mais varia- 
das funções, o técnico, num ritual de comprovação da eficiência da máquina, 
manda ver o seu jogo predileto. 

Se esse estado de coisas é bom ou ruim para o desenvolvimento da micro- 
informática nacional não importa; o que conta é o entretenimento, pois lazer 
é uma atividade essencial ao ser humano. E é dessa forma que todos os progra- 
mas de jogos devem ser encarados: lazer. Puro e simples lazer. Extrapolar daí 
é apostar numa discussão sem perspectivas de conclusão. 
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S. por um lado existe todo um ques- 
tionamento da importância dos jogos, 
por outro é difícil estabelecer uma or- 
dem qualitativa nos produtos que já 
existem. Podemos, no entanto, assumir 
que para um jogo ser considerado bom é 
necessário que a sua estrutura básica seja 
calcada numa idéia original. 

Poderíamos citar diversos exemplos, 
porém o mais significativo é o xadrez 
que, apesar de ter alguns séculos de exis- 
tência, continua a causar grande suces- 
so entre seus adeptos. A estrutura do 
jogo permanece, desde a sua criação até 
hoje, praticamente inalterada e talvez 
nunca sofra modificações, dado que ela 
é a síntese de três elementos fundamen- 
tais: atualidade, abrangência e simpli- 
cidade. 

A atualidade refere-se ao grau de con- 
temporaneidade que o jogo assume num 
determinado espaço de tempo. Alguns 
jogos famosos atualmente, com certe- 
za perderão sua força atrativa na medida 
em que se distanciarem do fato gerador 
ou inspirador. 

Um caso típico é o jogo WAR que, 
para ser plenamente satisfatório, exige 
dos jogadores, pelo menos, uma vaga 
idéia do que foi e da importância da II 
GUERRA MUNDIAL. Nesse caso, o as- 
sunto confronto militar é sempre atual, 
porém a sua localização temporal perde 
importância na medida em que o tem- 
po distancia-nos do fato em si. O que se 
pode fazer, num caso desses é trazer a 
mecânica do jogo para um conflito mais 
próximo da atualidade. 

A abrangência é um aspecto de suma 
importância dentro da universalidade de 
um. jogo. Sistemas que têm como pré- 
requisitos para serem manipulados, um 
elevado grau de QI ou um repertório de 
reflexos condicionados altamente desen- 
volvidos, estão condenados a serem res- 
tritivos por natureza e definição. É es- 
sencial que um jogo permita o entrete- 
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Os diversos tipos de space invaders: (1) o conhecido e famoso 
GALAXY INVASION (TRS 80), da genial dupla Bill Hogue e 
Jeff Konyu, para a não menos famosa Big Five; (2) o irmão do 
Galaxy, mas igualmente popular COSMIC FIGHTER (TRS 80), da 
mesma equipe anterior; (3) o SPACE INTRUDERS (TRS 80), de 
Doug Kennedy para a Adventure Int.;(4) o STAR BLAZERS 
(TRS 80), da Q. Products; (5) o SPACE INVADERS (Sinclair), 

da Ritas do Brasil, um raro exemplar de produto nacional. 





nimento do mais inocente iniciante ao 
mais completo profi-expert jogador. Por 
sinal, essa é uma característica muito 
pouco observada nos jogos eletrônicos 
de movimento, onde o infeliz jogador 
deve manejar pelo menos uns 10 coman- 
dos ao mesmo tempo. 

A simplicidade é o terceiro e mais im- 
portante fator ao qual um bom jogo de- 


ve obedecer. Isso se deve, atualmente, 
ao fato de haver uma grande quantida- 
de e diversidade de jogos disponíveis, 
obrigando os amantes dessa atividade a 
um difícil processo de seleção. De fato, 
pode-se escolher entre as mais diversas 
situações e, certamente, as que são mais 
assimiláveis detêm uma preferência a 
maior. Jogos que obrigam o usuário a && 
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decorar listas de comandos, regras e pos- 
sibilidades acabam causando o cansaço 
e desinteresse antes mesmo do jogador 
começar a tirar algum divertimento 
deles. 

Mas seriam apenas esses os elemen- 
tos que caracterizariam um bom jogo? 
A resposta é um sonoro NÃO. 

Existem jogos que obedecem rigoro- 
samente a esses requisitos e, no entan- 
to, não despertam o menor interesse. 
Por outro lado, existem algumas aber- 
rações que fogem a qualquer regra e, 
ainda assim, conseguem a adesão de inú- 
meros entusiastas. Por trás disso estaria 
um elemento não codificácel em regras 
ou preceitos, e que poderíamos tradu- 
zir por a alma do jogo. Essa alma po- 
deria ser identificada nas infinitas possi- 
bilidades do xadrez; no charme do 
monstrinho Pac Man; na sensação de po- 
der do WAR; na simplicidade do jogo da 
Velha, etc. 


Os penetrators da linha 
TRS 80:(6) o original 
PENETRATOR, de 
PHILIP MITCHELL, para 
a Beam; (7)o SEA 
DRAGON, um penetrator 
em baixo d'água, da dupla 
Wayne Westmoreland e 
Terry Gilman, para a 
Adventure Int.; (8) o 
ELIMINATOR, da mesma 
equipe anterior. 








A EVOLUÇÃO DAS MÁQUINAS 





A microcomputação de lazer é um 
dos ramos da Informática que tem so- 


Para jogar: os acessórios 


E” termos de acessórios para jogos em microcompu- | A Plancontrol fabrica também paddle e joystick para mi- 
tadores, os mais utilizados são sem dúvida os joysticks  cros da linha Apple, cujos preços variam entre Cr$ 60 mil 





e os paddles. Ambos têm a mesma função: possibilitar o 
movimento, controlando o jogo e dispensando o uso do 
teclado da máquina. O teclado, quando usado para esse 
fim acaba sofrendo um desgaste natural que pode vir a da- 
nificar as teclas. Os joysticks são compostos por uma ala- 
vanca que determina a direção do objeto que está sendo 


controlado e um botão para disparo, para os jogos que dis- 
põem deste tipo de artifício. Já nos paddles, ao invés da 
alavanca existe um botão girador com o mesmo fim. 


Para os micros da linha Sinclair, podem ser encontra- 
dos nas lojas um joystick da Microdigital, fabricante dos 
micros TK 83 e 85, que custa Cr$ 19 mil e 393 (na Com- 
putique S.P.); o joystick da Greika, que custa Cr$ 25 mil 
e 909 (Computique S.P.); e um terceiro modelo de fabri- 
cação da Plancontrol que custa Cr$ 40 mil (Imarés S.P.). 


e OS 76 mil, nas lojas de São Paulo. E para o micro 
CP-500 são encontrados um joystick da própria Prológica, 
fabricante do equipamento, e que custa Cr$ 69 mil, 
(Imarés S.P. ); e pelo mesmo preço existe um outro mode- 
lo de joystick de fabricação da Corsário. 

Um outro acessório que quando utilizado para jogos 
implementa as figuras que aparecem na tela é a utiliza- 
ção de alta resolução gráfica. Nos equipamentos voltados 
para uso profissional, como os da linha Apple, por exem- 
plo, esse recurso já vem embutido na máquina. Mas o 
mesmo não acontece nos micros pessoais da linha Sin- 
clair, o que levou alguns particulares a desenvolverem 
placas de alta resolução para micros dessa linha. Uma des- 
sas placas foi desenvolvida por Paulo Roberto V. Pereira e 
Neuveri Moog, e foi testada e analisada pelo CPD de 
MICRO SISTEMAS (vide MS 37 pág. 16). 
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O Modem UP-275 VTX da Parks é o 
modem homologado pela Telebrás. Depois de 
todos os testes de qualidade realizados pela 
empresa, ele mostrou que é o mais durável e de 
maior resistência. 

O Modem UP-1275 VTX da Parks é a 
maneira mais simples, rápida e durável de você 
ligar o seu microcomputador ao Serviço 
Cirandão e Vídeotexto. Basta uma linha 
telefônica comum para completar a ligação e 
ter ao seu alcance as mais diversas informações 
de interesse doméstico, empresarial e 
profissional. 


















































É um aparelho de pequenas dimensões 
(15x 25cm), peso reduzido e de fácil instalação. 
Recebe sinais em 1200 bps e transmite a 1200 ou 
75 bps. Além de tudo, tem alta durabilidade e 
faz você ficar na linha por muito mais tempo e 
tem muito mais facilidade de reposição de 
peças. 

Receba o Serviço 
Cirandão ou Vídeotexto em 
sua casa, empresa, 
consultório ou escritório. 

O Modem UP-1275 VTX 
da Parks dá o acesso. 


0) (ta 








MODEM UP-1275 VTX 













hi 








É AUTOMÁTICO: Você compra o Modem 
UP:1275 VTX da Parks e ganha uma inscrição 
para ingresso no Serviço Cirandão da Embratel. 


Matriz: Porto Alegre - RS - Av. Paraná, 2335 : Fone (0512) 42-5500, Telex (051) 1043 e Filiais: São Paulo:Fone (011) 572-7171, Telex (011) 23-141 e Curitiba: 
Fone (041) 232-1814, Telex (041) 5406 * Rio de Janeiro:Fone (021) 240-7443, Telex (021) 33-621 * Recife:Fone (081) 325-2123, Telex (081) 4248 * 
Belo Horizonte:Fone (031) 226-5722 * Brasília: Fone (061) 272-1825 e Blumenau: Fone (0473) 22-6248 * Campo Grande:Fone (067) 383-5331 * Florianópolis 
Fone (0482) 22-1525 * Cuiabá:Fone (065) 321-5020 * Uberlândia: Fone (034) 234-4600 * Salvador: Fone (071) 249-9744. 


BANCO DE DADOS 





REDE 
TELEFÔNICA 











tantes: 





s- MAIS SUCESSO PARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 
técnico programado e desenvolvido no País. 








Métodos novos e inéditos de ensino garantem um aprendizado 

prático muito melhor. Em cada nova lição, apostilas ilustradas 

ensinam tudo sobre Amplificadores, Caixas Acústicas, Equalizadores 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Áudio, Técnicas de Gravação e também de Reparação em Áudio 


São mais de 140 apostilas com informações completas e sempre 
atualizadas. Tudo sobre os mais revolucionário CHIPS. E você 

recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro 


CEDM-20 - KIT 

de Ferramentas. 
CEDM-78 - KIT 
Fonte de Alimentação 
5v/1A. CEDM-35 KIT 
Placa Experimental 
CEDM-74 - KIT 

de Componentes 
CEDM-80 
MICROCOMPUTADOR 
Z80 ASSEMBLER 


s 

-— a 
7. 
e e 


a. 
e 
- 


EENIRE 2 
- 


e 


CEDM-1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentação 
+ 15-15/1A. CEDM:3 - KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM.-5 - KIT Pré-amplificador 
Estéreo. CEDM-6 - KIT Amplificador Estéreo 40w. 






a Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
Este CURSO, especialmente programado, oferece os guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 


fundamentos de Linguagem de Programação que domina o universo para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC equipe de professores sempre muito bem acessorada. Além disso, você 
básico até o BASIC mais avançado, incluíndo noções básicas sobre recebe KITS preparados para os seus exercícios práticos. 


Manipulação de Arquivos, Técnicas de Programação, Sistemas de Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
Processamento de Dados, Teleprocessamento, Multiprogramação e SOS CEDM por correspondência garantem condições ideais para o seu 
Técnicas em Linguagem de Máquina, que proporcionam um grande aperfeiçoamento profissional. 


conhecimento em toda a área de Processamento de Dados Í 


Você também pode ganhar um MICROCOMPUTADOR. 
Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 
Em poucos dias você recebe nossos catálogos de apresentação. 





CEDM Avenida São Paulo, 718 - Fone (0432) 23-9674. 
CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 


CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 





Solicito o mais rápido possível Informações sem compromisso sobre o 
CURSO de 


KIT CEDM Z80 
BASIC Científico 
KIT CEDM Z80 





BASIC Simples 
Gabarito de Fluxograma 

E-4. KIT CEDM SOFTWARE 
Frtas Cassete com Programas 





frido uma crescente especialização por 
parte de seus segmentos de hardware e 
software. O universo dos jogos eletrô- 
nicos experimentou, nesses dois últimos 
anos, um avanço tecnológico bastante 
significativo, e isto devemos, principal- 
mente, ao volume de equipamentos co- 
mercializados e à tendência natural de 
massificação do lazer eletrônico. 


Mas esse crescimento não decorre 
apenas do prazer implícito na ativida- 
de, visto que o interesse na área, da par- 
te dos produtores, extrapola o lazer. De 
fato, deve-se creditar aos jogos uma im- 
portância capital na viabilização de uma 
indústria nascente, pelo número de pro- 
dutos comercializados. 


A discussão da ordem cronológica de 
surgimento dos micros e dos jogos ele- 
trônicos assemelha-se à questão do ovo 
e da galinha, porém o nascimento de 
ambos pode ser situado nos anos 70, 
quando diversas pessoas se reuniam em 
grupos e clubes, por todo território nor- 
te-americano, para a troca de idéias e a 
construção de micros caseiros. O que es- 
sas pessoas pretendiam com esses equi- 
pamentos pode ser questionado, mas 
certamente havia o componente “jogos” 
presente entre eles. 


Desses tempos heróicos até os dias de 
hoje, muita coisa aconteceu e o nível 
tecnológico atingido foi extremamente 
importante para a criação de produtos 
cada vez mais sofisticados. Na realida- 
de, a evolução das máquinas seguiu pa- 
ralela a uma evolução no próprio con- 
ceito de jogo eletrônico, ao ponto de 
hoje já existirem alguns tipos de jogos 
somente viáveis por meio e interferên- 
cia do computador. 


Os primeiros micros, precursores des- 
sa atividade, não possuíam recursos grá- 
ficos e de animação, o que obrigava os 
criadores de jogos a compensar a falta 
do visual com uma criatividade cada vez 
mais restritiva e seletiva. São dessa épo- 
ca os primeiros jogos de xadrez; forca; 
senha; velha; adivinhe o número; loto 
etc. Com o advento dos equipamentos 
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Diversos jogos tentam um 
estilo diferente dos já 
conceituados e famosos: 
(9) uma aventura do tipo 
Indiana Jones no ASTEC 
(Apple); (10) uma cidade 
em perigo nos FUNGOS 
MUTANTES (Sinclair), 
adaptação da Cibemne; (11) 
o papa da animação gráfica, 
Leo Christopherson, em 
WALKYRIE (TRS 80) 
paraa AOS; (12) o mesmo 
Leo no simpático, 
inteligente e irreverente 
ANDROID NIM (TRS 80); 
(13)0 FLIPPER (TRS 80), 
da Southern Cross, um 
fliperama quase real; (14) 
o ARMOURED PATROL 
(TRS 80), de Wayne 
Westmoreland e Terry 
Gilman para a Adventure 
Int. 
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Dois pres card de frogs:(15) e ade 80) 





Apple, TRS-80 e Sinclair, os jogos ga- 
nharam em qualidade e diversidade, 
pois esses micros já incorporavam al- 
guns recursos extras como caracteres 
gráficos, alta resolução, cor e som. 

Essa talvez tenha sido a última fase 
“amadora” dos jogos eletrônicos, visto 
que hoje já existe uma especialização 
no hardware e principalmente nas es- 
pecificações dos micros. Os anos 82/83 
marcaram o surgimento de máquinas 
voltadas para o lazer eletrônico e que 
atendem especificamente a uma classe 
de usuários muito mais interessada em 
divertimento do que em computação 
propriamente dita. 

São equipamentos simples, pequenos, 
com uma capacidade de armazenamento 
real, sob certos aspectos, razoável (entre 
8 e 32 Kb), porém com uma programa- 
ção muito avançada para os padrões 
Apple/TRS/Sinclair. O aperfeiçoamento 
de recursos como som, cor e, principal- 
mente, uma melhor performance da 
imagem obtida nos televisores comuns, 
fazem desses micros as vedetes da popu- 
larização do computador. 


Nessa faixa encontraremos os mais 
criativos micros da atualidade, operando 
um BASIC completamente diferente do 
BASIC standard da Microsoft. De fato, 
a implementação de comandos como 
COLOUR, DISPLAY, SCREEN, TONE, 


s2 





um frog onde o sapo é uma 
para a Soft Sector; 06 edição do PROGCER 


er Jr 
pela Multiso ft. 





SHAPE, MUSIC, NOISE, VOLUME, 
CPOS, FIXED, PAPER, INK, BORDER, 
OVER, TIME, CLD, WAIT etc. já os 
diferenciam dos seus parentes maiores. 


Mas as diferenças não se evidenciam 
apenas na linguagem de alto nível. Al- 
guns incorporam novidades como a re- 
definição de caracteres, alta e baixa re- 
solução na mesma tela, sprite (defini- 
ção de planos com prioridade de impres- 
são), sistemas de armazenamento de 
programas em micro-drives, etc. Existe 
até o caso de um micro, o Jupiter ACE, 
que optou pelo FORTH ao BASIC, já 
que esta é uma linguagem mais adequa- 
da à criação de jogos. 

A própria operação dos micros so- 
freu uma evolução significativa e o ato 
de programar, ou apenas digitar um pro- 
grama, ganhou em segurança e rapidez. 
Nota-se uma tendência cada vez maior 
pelo sistema de tecla/função, onde o 
operador não precisa digitar o coman- 
do todo mas apenas uma tecla. Além 
disso, a crítica de sintaxe ao se digitar 
uma linha evita que o micro aceite li- 
nhas com erros primários de digitação. 
A edição também foi motivo de um me- 
lhoramento na sua funcionalidade, visto 
que essa operação é bastante solicitada 
nessa faixa de equipamentos. 


Todas essas características reforçam 
o conteito operacional proposto pelo já 


lendário Sir Clive Sinclair, no seu famo- 
so micro ZX81. É também o próprio 
Sinclair quem mais tem proporcionado 
mostras de inventividade nos seus mi- 
cros SPECTRUM e, atualmente, no 
2068. Além desses, podemos destacar 
alguns outros micros como o LYNX, 
ORIC 1, COMX 35, VIC20, COMMO- 
DORE 64, COLOUR GENIE, BBC etc. 





A PRODUÇÃO DE SOFTWARE 





Criar um programa original para um 
jogo não é uma das tarefas mais sim- 
ples na arte da computação de lazer. 
Na verdade, são muito poucos aqueles 
que conseguem resultados pelo menos 
satisfatórios, e a tendência é cada vez 
mais isso ficar restrito a grupos, ou 
software-houses. O motivo é bastante 
simples, pois um jogo, para ser bem acei- 
to, deve possuir compatíveis em quase to- 
das as linhas de equipamentos, e isso só 
é possível,em teoria, se dispusermos dos 
equipamentos e das informações técni- 
cas necessárias. 


Essa tendência, já bastante difundida 
nos países mais adiantados, ainda está 
em estágio embrionário aqui no Brasil, 
e os motivos vão desde a falta de estru- 
tura de investimento das próprias soft- 
ware-houses, até a total falta de apoio 
dos fabricantes de hardware. O maior 
reflexo disso tem sido um descomunal 
atraso tecnológico, visto que a produ- 
ção nacional de software original é 
praticamente zero. O que existe é um es- 
forço de tradução e adaptação de soft- 
ware importado, quando não a pura e 
simples cópia. 

Mas a disponibilidade técnica ou fi- 
nanceira não é o único entrave inerente 
a esse segmento da microcomputação. 
A criatividade tem sido, sob certos as- 
pectos, uma barreira muito mais violen- 
ta que as estruturas convencionais. O 
maior reflexo disso é a pequena dife- 
renciação entre estilos de jogos, os quais 
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Criar jogos não é apenas conhecer bem uma linguagem 
de programação. É preciso ter também algum senso 
artístico e muita imaginação para elaborar as aberturas 


podem ser classificados como Pac Mans; 
Space Invaders; Penetrators; Star Treks; 
Froggs; Kongs; Flight Simulators; Ad- 
ventures e os convencionais Xadrez, 
Gamão, Damas etc. 

Nada tem surgido de novo, nos úl- 
timos anos, e que não pertença a um 
desses estilos obrigatoriamente. Talvez 
isso decorra de uma postura ainda pre- 
conceituosa em relação ao jogo, ou mais 
especificamente ao lazer via computa- 
dor. Os profissionais mais gabaritados, 
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eapresentações dos programas. 





com formação acadêmica inclusive, ain- 
da se sentem inibidos a produzir um tra- 
balho mais completo nesse universo tão 
complexo e apaixonante. 





= meire mms mes e eme 
O QUE ESPERAR 
PARA O FUTURO? 


A julgar pela situação atual, o futuro 
do lazer em computadores, no Brasil, 
ainda vai demorar muito para estourar, 


como em outros países. Se não houver 
uma integração maior entre as software- 
houses e os fabricantes, dificilmente 
haverá uma produção nacional de peso 
e qualidade. 

A política de produzir equipamen- 
tos sem compatibilidade e sem base de 
software ainda é muito forte entre os 
industriais nativos. Chegamos mesmo ao 
ponto de ter no mercado algumas das 
peças mais esdrúxulas jamais vistas, po- 
rém a sua própria inconsistência acaba 
provocando seu desaparecimento. Mes- 
mo assim, a experiência não tem servi- 
do a todos, e ainda padecemos do mi- 
cro compatível apenas com ele mesmo. 

Mesmo nos Estados Unidos, onde o 
consumo da Informática está muito 
mais avançado, nenhum equipamento 
chega ao mercado sem ser precedido por 
uma avalanche de programas oriundos 
dos produtores de software. Aqui no 
Brasil dá-se exatamente o oposto, e 
mesmo após meses do lançamento, 
muitos micros são conhecidos apenas 
pelos seus “criadores”. Essa fobia de 
ser conhecido é um dos maiores proble- 
mas causados ao consumidor, e estra- 
nhamente contrário a qualquer regra de 
comercialização de produto. 

Se esse estado de coisas não sofrer 
uma alteração drástica, em pouco tem- 
po teremos equipamentos que só fa- 
rão imprimir o nome do seu proprie- 
tário na tela de vídeo infinitas vezes. 
Teremos então perdido uma das maiores 
oportunidades de consolidação da mi- 
croinformática, pois dificilmente haverá 
muita gente a investir pequenas fortu- 
nas num narcisismo sem sentido. E 


Renato Degiovani é Desenhista Industrial e 
Programador Visual, formado pela Pontifl- 
cia Universidade Católica do Rio de Janeiro. 
Possui também cursos de Fotojornalismo, 
Fotogravura, Produção Gráfica e Fotografia 
Técnica. É o Diretor Técnico de Micro Siste- 
mas e usuário de microcomputadores na sua 
área profissional. É também um entusiasta do 
uso do computador como lazer alternativo. 
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e Recebemos em nossa redação a carta do 
colaborador Marcel G. de Albuquerque, au- 
tor dos pro as Granja e Salários, publi- 
cados em MS nº 38, . 34 e 58, respec- 
tivamente, em que este faz algumas corre- 
ções e sugestões para melhorar os progra- 
mas citados. No programa Granja devem ser 
feitas as seguintes alt: es: 
— em vez de GOSUB 1 na linha 1050, o 
mais correto é GOTO 1800, e em função 
disto, deve-se alterar a linha 1800 para: 
1800 REM INSTRUÇÕES, 
— coloque ponto e vírgula no final da linha 
1230, pois a falta deste caráter provoca con- 
fusão na tela; 
- a linha:3020 deve ser trocada; ao invés 
dai Cosa 2040, o mais correto é GOTO 
No programa Salários, são estas as modi- 
ficações: 
— para uma melhor estética na linha 1, é 
necessário a col de cinco sas en- 
tre as palavras CONFORME e EVOLUÇÃO; 
— no terceiro parágrafo após o entretítulo 
SUGESTÕES, deve-se trocar o final da linha 
550, que, em vez de 400 deverá ser 100. 
Aliás, com o fim dos centavos não é mais ne- 
cessário multiplicar por 100, tomar a parte 
inteira e dividir por 100. Assim sendo, seria 
melhor corrigir as linhas que utilizam este 
método (530 e 550) para: 
530 PRINT, , TAB 11; “CR$ ”; INT(SAL) 
550 PRINT ,, TAB 11; “CR$ "; TOTAL 
e Em MS nº 38, pág. 73,0 programa MU- 
DA NOME/DATA teve e de seu texto 
omitido, embora as duas listagens publicadas 
(Nome/Data e Números Hexadecimais) este- 
jam corretas. Para sanar este erro, publica- 
mos agora somente a redação correta de for- 


ma integral: 

“o aaa DISKZAP para mudar (publica- 
do em MS nº 25, pág. 36) mostrou a possi- 
bilidade de modificar o conteúdo de um dis- 
quete (e também de criar monstrinhos) para 
quem possuísse o DOSPLUS 3.4, o que não 
era o meu caso. Mesmo assim não desisti, e 
com rã ão do artigo Além do BASIC, 
Assembler, DOS e outros mistérios (MS nê 
32, pág. 80) consegui fazer uma rotina em 
BASIC — utilizando parte do p: a da 
listagem 2 (pás. 83): Muda hs dis- 
quetes — e finalmente tive a oportunidade 
de modificar o conteúdo do disquete (e 
fazer o monstrinho mudar também), simu- 
lando um DISKZAP no meu DOS500. 

Para quem, como eu, não possui o DOS- 
PLUS 34, o procedimento é o Ego co- 
loque um disquete com o DOSS00 no drive 
O e entre com o programa em BASIC. Ao 
iniciar o programa, o computador ficará es- 

rando até que se entre com um dado (70 

UT AS$...). Deve-se então digitar os nú- 
meros hexadecimais um pot um, logo após 
terminar o programa de ET. Se tudo for 
digitado corretamente, o monstrinho sorrirá. 
Uma observação final importante: com este 
Pp a pode-se criar qualquer desenho, 
mas é necessário respeitar o número de ca- 
racteres e os hexadecimais 01, 2C, FO, 51 e 
OD”. 


e Em MS nº 38, . 25, no pao 
Cofre, a trava do referido programa foi pu- 
blicado como PULZ. O correto no entanto 
é considerar todos os PULZ do programa 
Cofre como » OU seja ,em caracteres 
gráficos invertidos. 


e Em MS nº 38, pág. 46, no programa Te- 
clado musical, ocorreu um erro na listagem 
em BASIC, na linha 40, onde, erradamente, 
foi impresso um sinal de adição em lugar da 
vírgula. O correto é: 40 .... 47,3,169,76 ... 
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Linha TRS 


Software-houses consultadas: Inter Soft — Av. Brigadeiro Faria Lima, 1462, cj. 2A, São 
Paulo, tel.: (011) 212-8971 e 211-0371; JVA Microcomputadores — Av. Graça Aranha, 
145, sobrlj. 01, Rio de Janeiro, tel.: (021) 262-6968; Kristian Eletrônica Ltda. — Rua Gonza- 
ga Bastos, 112, CEP: 20541 — Rio de Janeiro, tel.: (021) 268-8249; Mag Soft — Rua José Bran- 
dão, 175, Jardim Pirituba, São Paulo, tel.: (011) 864-8101; Micro's Assessoria em Processa- 
mento de Dados — Av. Índico, 71, São Bernardo do Campo, São Paulo, tel.: (011) 448-6234; 
Monolith 2001 — Rua Augusta, 1371, sl. 7, São Paulo, tel.: (011) 288-4939; Multisoft Infor- 
mática — Av. Angélica, 2318, São Paulo, tel.: (011) 255-0366; Playsoft — Rua D. Germaine 
Burchard, 511, São Paulo, tel.: (011) 62-3600; Produtos BBS, Revenda Informax — Av. 
Brigadeiro Faria Lima, 1390, São Paulo, tel.: (011) 813-6407. 


Abreviatura utilizada: config. — configuração. 


MR o 0 SET EEE E STATS 
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Os mais 
vendidos 


M ICRO SISTEMAS realizou uma pes- 
uisa nas lojas verificar quais 
são os jogos mais vendidos. Os resultados 
demonstraram que os usuários de micros 
da linha Sinclair são os que mais procuram 
jogos e entre os mais vendidos destacam-se 
as da Microsoft, JVA, Micro's € 
ftKristian. Encabeçam a lista da Micro- 
soft, para os TKs 83 e 85, os jogos: 
TKMan, uma versão do conhecido come- 
come — o bichinho que corre atrás das bo 
lachas e quanto mais consegue abocanhar, 
maior o número de pontos para o jogador; 
Rally, corrida de carros onde o jogador é 
um dos pilotos - entre as muitas dificul- 
dades a enfrentar, ele deve ultrapassar os 
outros competidores sem bater nos demais 
carros para não perder os pontos já conse- 
qutca Jogar xadrez contra o computador 
um desafio que atrai muitos usuários, e 
os TKadrez 1 e II, também da Micro- 
soft, têm grande aceitação no mercado. A 
ep mragibhol o Rio de Janeiro, 
possui pacotes de jogos, com cinco pr = 
mas um deles, que lideram a sus tisa 
de venda. Dentre os mais vendidos estão as 
fitas Bichos e Cia e Combate. A fita Velho 
Oeste, da Kristian, que reune quatro jogos, 
eira também como uma Er mais 
vendi para os equipamentos da linha 
Sinclair. Outro sucesso de vendas é o Cas- 
telo do Drácula, da Micro's. Neste jogo, o 
competidor deve colocar as estátuas do 
Castelo num caixão, fugindo do Drácula e 
do mordomo. 


Pos up rear de Es ao Fm mia 

s para O . Entre os 
mais los estão o tradicional Xa- 
drez e Pânico. Neste último, um boneco 
sobe uma escada destruindo seres que apa- 
recem em seu caminho. 


Na linha Apple, destacam-se os jogos 
co) ali; s pela PlaySoft, entre os 
quais o Castelo Wolfstein, cuja história se 
passa durante a Segunda Guerra Mundial, 
onde o jogador tem como missão encon 
trar os planos secretos escondidos no cas- 
telo, tendo que livrar-se dos soldados ale- 
mães que lá se encontram. Outros dois dis- 
ques com jogos da PlaySoft, preferidos 

público, são de Salão, que reúne 
jogos de Paciência, Poker, Xadrez e Gamão; 
e Ataque, um conjunto de quatro jogos de 
ação e movimento. 


Para os micros compatíveis com TRS- 
80, os jogos apontados pelas lojas como os 
mais los são: Pinoal, no qual o micro 
se transforma em uma uina de flipera- 
ma; e a fita com quatro jogos (Boxer, Tiro 
ao Pombo, Golfe eBola ao Cesto); ambos da 
Mag Soft. Entre oe jogo da ia 
tacam-se: o Diabo çarino, que muitos 
já devem ter visto em demonstrações de 

» Um jogo que executa músicas com 

o acomj ento de um diabinho dan- 

pe onde o deve des- 

ii aa naves porra od 
acabem os foguetes; e Caça Níqueis, 

que Ea uma verdadeira máquina caça 


: + Com- 
ch consultadas: Compushop 
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Está na hora de catalogar detalhadamente seus discos. 
Eis uma proposta para equipamentos TRS 80 | e ll 








Catálogo de diretórios 








MS É FEITA 
PARA VOCÊ 
PARTICIPE COM 


SUA OPINIÃO 


Escreva-nos di- 
zendo qual a sua 
área de interesse, 
», conte-nos tam- 

? bém as suas expe- 
riências com seu 
micro, o que 
“você quer ver 
publicado em MS, o que você acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para você. 

E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opinião para Redação de 
MICRO SISTEMAS no Rio de 
Janeiro ou em São Paulo: Av. 
Presidente Wilson, 165/grupo 
1210 - Centro - CEP 20030 - 

Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 - São Paulo - SP. 
































Carlos Roberto Cerri 


riado para rodar em micros 
compatíveis com o TRS-80, 
modelos I e III com 48 Kb, 
impressora e pelo menos um 


| drive, Arquivo de diretórios é um utilitá- 


rio formado por dois programas — AR- 
QDIRO1/BAS e PROORDOI/BAS. 

Este utilitário possui uma rotina que 
recupera do vídeo os dados dos diretó- 
rios, guardando-os na memória, permi- 
tindo assim que eles sejam modificados 
e deletados, bem como admitindo a bus- 
ca e localização de um programa especí- 
fico. Salva e carrega os dados de um ar- 
quivo de disco e, fundamentalmente, 
e er três tipos de relatórios: 
€ Catálogo de diretórios 
€ Relação geral de discos 
O Índice remissivo de catálogo de dire- 

tórios 


DISCO 


A única exigência do programa é que 
os discos sejam identificados por núme- 
ros que variem de 1 até o número de dis- 
cos que o usuário tiver de catalogar. O 
programa foi testado com 35 disquetes e 
cerca de 550 programas (com cópias, 
obviamente) e apresentou boa perfor- 
mance. No caso de o arquivo do usuário 
ser menor, ele poderá modificar os valo- 
res das variáveis nas linhas 40, 45 e 50 
do programa ARQDIRO1/BAS e linhas 
25 e 30 da rotina PROORDOI/BAS, 
de acordo com as suas necessidades. 


Com isso será obtido melhor desem- 
penho do utilitário, principalmente no 
que se refere à emissão do índice remis- 
sivo, cujo tempo de processamento é o 
mais prolongado. 


O programa PROORDOI/BAS foi 


aa NOME = DISTESTE 








No. 4 
Data: 01/28/84 - 55040 Bytes e 43 Grans livres ( 11 Programas ) — Inv? NAO 


ARQDIROS/BAS SARGONII/CMD CHAINTST/JCL LMOFFS00/CMD ARQDIGIZ/TES 
DIR/BAS ARQDIGIT/TES PROORDOL/BAS SUPERZAP/CMD PRODIGIZ/TES 
ARQDIGIS/TES 


DISCO JN. = — NOME = CURBASIC 
Data: 09/30/83 - 39680 Bytes e 31 Grans livres ( 11 Programas ) — Inv: NAO 


CURBASD/BAS 
CURBASS/BAS 
ZBUG/BAS 


CURBAS1/BAS 
CURBAS6/BAS 


CURBAS2/BAS 
CURBAS7/BAS 


CURBAS3/BAS 
CURBASB/BAS 


CURBAS4/BAS 
CONVERTE /JCL 


Figura 1 — A disposição do catálogo de diretórios. 
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elaborado separadamente, com a finalidade também de reduzir [40 cns-="01R 
o tempo de processamento, sendo carregado automaticamente 
a partir do programa principal. Após executar sua tarefa — or- 
denar e imprimir o Índice remissivo — ele carrega novamente o 
programa ARQDIRO1/BAS. 

O programa é auto-explicativo e de fácil manipulação. Um 
aviso aos que gostam (e quem não gosta?) de ir podando linhas 


na digitação: as linhas REM estão incluídas nos comandos 


200 NEXTP 
»ENEXT 


€DT>ENEXT 


GOTO e GOSUB. 240 
Por fim, na figura 1 temos um exemplo de aplicação do 
utilitário. =49THENZ6DELSEZ5O 





Carlos Roberto Cerri é médico e usuário de um DGT-100 há cerca de 
um ano. Ele pretende aplicar os conhecimentos de BASIC em sua área 
profissional. 


CB); 
















ARQDIRO1/BAS 








10 REM memem 





15 REM * ARQUIVO DE DIRETORIOS - Versao 1.0 370 6070500 
20 REM * AUTOR : Carlos Roberto Cerri - TEL :(037)2215948 « 
25 REM * Rua da Bahia 1374 


30 REM eemmenennananannnnananas 
35 CLEAR20000 








een 
445 RETURN 

















40 PQ=351 "MAX. DE PROGRAMAS POR DISCO 
as PZ=35: "MAX. DE DISCOS POR ARQUIVO 425 RETURN 
So Pwu=sS00: "MAX. DE PROGRAMAS POR ARQUIVO 


55 DIMPRSCPZ,PQ),NOS(PZ),DSCPZ),DTSCPZ),SSCPZ) 
60 DIMPS(PQ),PPSCPU),BCPZ),G(PZ),NP(PZ) 

65 ON ERROR GOTO 490 

70 Gorosoo 

75 GoTOS00 


105 CLS:PRINTOS2B, “QUAL DRIVE SERA UTILIZADO NA LEITURA DOS DIRE 
TORIOS (0-3): “; ELINEINPUTORS 


115 CLStI=1:PRINTOSIZ, “COLOQUE O DISCO NO DRIVE “;CHR$(34)DR$;C 
HR$(34);” E TECLE SEU NUMERO : “;:LINEINPUTNUS 

1147 N=VALCNUS) 

asa IFNC1ORN)PZTHENPRINTOS62, “ENTRE 4 E”sPZSFORX=1TOBDOSNEXTX:GO 
0445 

420 PRINTEPRINTDESEJA INCLUIR OS ARQUIVOS INVISIVEIS (S/N) 7 4” 
130 R$=INKEYS: IFR$="N”THENSADELSEIFR$="S”THENISOELSES30 


565 X=VAL(RS) 









sorosoo 
CIS:PR 








[] a fita MICROBUG, pela qual pagarei Cr$ 15 mil + Cr$ 1.300,00 referente a 
despesas do correio. 

O os números atrasados de MS, pelos quais pagarei o preço de Cr$ 1 mil* por exem- 

plar. Me interessam as edições: L] MSn?31 [] Msn? 33 

D msnº32 0 msn? 34 

TOTAL:Cr$ 


















NOME: 
ENDEREÇO: 





Para tal, estou enviando um cheque nominal à: ATI Editora Ltda. (Projeto MICROBUG) 
Av. Presidente Wilson nº 165, grupo 1210 — Centro — CEP 20030 — Rio de Janeiro, RJ. 
* Despesas de reembolso excluídas 

08BS.: Os produtos acima podem ser adquiridos diretamente em nossos escritórios do 






“+STR$(D) ESNS="NAO”:GOTOL 60 

150 CHS="DIR “+STR$(D)+” 1“25N$="SIM” 

160 CMD"CHS":PRINTSTRINGS(61,42) 

470 PRINT"AGUARDE MENSAGEM 3 

180 FORP=154887016320:C=PEEK (CP): IFC=42THENI=1-1:60T0210 

490 IFCC)32THENHC=0:PSCI)=PS(I)+CHRSCCIELSEIFHO=OTHENHC= 4 *1=1+1 


210 NH$=""2FORP=1537170153781:C=PEEK(P)s IFC()32THENNHS=NHS+CHRS(C 
220 DT$S="":FORP=15381T015388:DT=PEEK(P): IFDT()32THENDTS=DTS+CHRS 


230 E=VAL(CHRSCPEEK (15413) )+CHRS(PEEK(15414)))n1200 
240 PRINT"PARA IMPRIMIR ETIQUETA TECLE (E) PARA PROSSEGUIR <RETU 


250 R$=INKEYS:IFR$=""THENZSOELSEIFASC (R$) =13THENILOELSEIFASC(RS) 


260 CLS:PRINT"PREPARE A IMPRESSORA”:PRINT"CARACTERES NORMAIS (N) 
OU COMPRIMIDOS (6) 7 

262 R$=INKEYS:IFR$="“THENZ62ELSEIFR$="NºTHENCA=1 4:CB=20:ELSEIFRS 
="C"THENCA=15:CB=1BELSEZ62 

270 LPRINTCHRSCCA)s SLPRINTCHRSC14) NUS” — “NHS 

290 A=-14:FORP=1TOLTA=ASLA IFAn)6BTHENA=OSLPRINTO * 

300 LPRINTTAB(A)PSCP)p ENEXTPELPRINTO “SLPRINTELPRINTELPRINTOHRSC 


310 GOSUB400:GOSUB420 

320 PRINT“OUTRO DIRETORIO A SER INCLUIDO 7 (S/N) 4 

330 R$=INKEYS: IFR$="S"THENS LSELSEIFR$="NºTHENISDELSEIIO 

350 CLS:PRINT“MONTE NO DRIVE O O DISCO QUE CONTEM OS PROGRAMAS! 
ARQDIRDI/BAS E PROORDOL/BAS.” 

360 FORX=1TOZS00:NEXTX 


400 N=VAL (NUS) ENP CN)=I 
- Divinopolis - MG - CEP 35500 “ 405 NOS(N)=NHSIDSCN)=DTS:B(N)=ESG(N)=E/128075S(N)=SNS 
une 410 FORZ=1TOTSPRSCN,Z)=PS(Z)ENEXTZ 


420 FORX=1TOPQIPSCX)=""ENEXTX 


490 CLSFPRINT"ARQUIVO NAO INICIALIZADO”:FORX=1TOBODENEXTX 

500 REM ============== TELA PRINCIPAL == 

SOS CLS:PRINTTAB (O) “ARQUIVO DE DIRETORIOS”;TAB(49)“TELA PRINCIPA 
L”3PRINTSTRINOS(63, 45) :PRINTEX=14 

540 PRINTTAB OO” 
S15 PRINTTAB(X)"2 - MOSTRAR DIRETORIO NO VIDEO” 
100 REM ====essesuses= REGISTRO DE DIRETORIOS == S20 PRINTTAB(X)"3 - PROCURAR PROGRAMA ESPECIFICO” 
530 PRINTTAB(X)“4 — DELETAR DIRETORIO” 

535 PRINTTABCO”S - 
140 D=VAL(DR$): IFD(DORD)3THENSOS 540 PRINTTAB(X)"6 - ROTINAS DE IMPRESSAO” 
545 PRINTTAB(X)”“7 - ENCERRAR PROGRAMA” 
550 PRINTTAB(X)STRINGS(35,45) 

555 PRINTIPRINTTAB(X)“SUA OPCAO 3 ” 

560 R$=INKEYS: IFR$=""THENS6O 


ONXGOTO 100, 400,850,900,700, 1000,580 






INT”PR 


- INCLUIR / MODIFICAR DIRETORIOS” 


GRAVAR ARQUIVO” 


OGRAMA ENCERRADO” END 





LHC 


EM FITA 


O projeto MICROBUG, desenvolvido pela equipe do 
CPD de MS, foi criado para auxiliar o entendimento e 
a exploração dos recursos existentes nos micros da 


páginas da revista, tem tido importância decisiva no 
aprendizado e desenvolvimento dos usuários na 

em li de máquina. 

Devido ao enorme sucesso do MIC ROBUG, refletido 
nas inúmeras cartas que temos recebido, a ATI 
EDITORA LTDA. optou por oferecer a versão 
integral do MICROBUG. 


EXEMPLARES QUE NÃO POSSUAM POR UM 
PREÇO ESPECIAL. Aproveite esta chance e 
usufrua logo do MICROBUG em sua forma integral. 
RO O O O a ido. 
Ti M LIMITADA. 



























CATÁLOGO DE DIRETÓRIOS 


mennanansana= DIRETORIO NO VIDEO == 
INT“DIGITE O NUMERO DO DISCO, CUJO DIRETORIO DESEJA VE 










si INT"(Para voltar ao Menu de Opcoes digite * * *)* 
615 PRINTOS3,” “pSLINEINFPUTNUS 
620 IFNUS="2"THENSOO 
625 Q=VALCNUS) 
630 IFQ(LORQ)PZTHENPRINTOZIA, 
*60TOG0S 
635 IF NOS(Q)="“THENPRINTOZIZ, “DISCO NAO CADASTRADO” :FORX=1TOS00 
sNEXTXIGOTOSOS 
640 CLSIPRINTTAB(O)"DISCO N. 
OME 1 “NOSCQ) 
645 PRINTTAB(O)“Data de Formatacao + 

. “NP(a) 


* “B(G),TAB(37)"Grans livres 


“NUMERO INVAL IDO” 2FORX=1TOS00!NEXTX 


“pSPRINTUSING' 





"0 PPRINTTAB(4S)"N 
“DSC(G);TAB(37)"N. de Progr 





PRINTTAB(O) “Bytes livres 
2 "o(a) 

PRINT! INGS (62,45) 

A=-L62FORZ=1TONP(G) AmA+LGLIFA=) 60THENA=OIPRINTO + 

PRINTTABCA)JPRS(Q,Z), SNEXTZSPRINTO “SPRINTTABCO)STRINOS (62,45 





PRINT"DESEJA VER OUTRO DIRETORIO (S/N) 7” 
R$=INKEYSIIFR$=""“THEN67SELSEIFR$="S"THENS0DEL SESOO 


GRAVAR ARQUIVO == 
CLSsPRINT"CONFIRME GRAVACAO (S/N) +” 

RS=INKEYS! IFR$=""THEN7 LOELSEIFR$=“5“THEN7 1 SELSESOO 
PRINT9665,"G RA VANDO” 
OPEN“O”,1,“LISTDIR/DAD” 
FORQ=ITÓPZ 

PRINT ML, NOSCQ) PRINT Wí,DSC 
PRINT W4, PRINT mí, O(A) 
FORZ=1TONP(Q) 

PRINT Ná, PRSCQ,Z) 

NEXTZ 

NEXTQICLOSE 126070500 

REM = CARREGAR ARQUIVO 
CLSsPRINTAZ30, “AGUARDE...” 
OPEN“I”,1,"LISTDIR/DAD” 

FORQuiTOPZ 

INPUT W4,NOSC(G) INPUT WL,DSCG) E INPUT W4,55C 
INPUT Wi, B(Q)FINPUT W1,GC0)2 INPUT Wá,NPCG) 
FORZ=1TONP 
INPUT M£,PI 
NEXTZ 
NEXTQSCLOSES 1GOTOS00 

REM == PROCURA PROGRAMA== 

CLS4CT=02L INEINPUT”NOME DO PROGRAMA * “PGS 
PRINTIPRINTTAB(O) “PROGRAMA”; TAB (18) “DISCO(S)” 
PRINTTAB(O)=———————2; TAB (48)"=——————— “3 PRINTTAB(D)POS;TABC1 
* 
FORY=1TOPZIFORW=1 TOP 
IFPOS=PRS(Y,M) THENCT=1!PRINTUSINGCWA; Yy SPRINTO “s 
NEXTWENEXTY 

IFCT=1THENPRINT”-  OK“ELSEPRINT“PROGRAMA NAO ENCONTRADO” 
PRINTIPRINT“OUTRA PROCURA (S/N) 72” 

R$=INKEYS: IFR$="5"THENGSSELSEIFR$="NºTHENSOOELSES9S 

REM DELETAR REGISTRO == 

CLS:PRINTIPRINT"DIGITE O NUMERO DO DISCO QUE DESEJA DELETAR 





RINT Wí,5S(0) 
RINT Wi, NP(G) 














0,z> 














940 PRINT"(Para voltar ao Menu de Opoes digite * a 9)” 

945 PRINTOLL1,” “;2LINEINPUTNUS 

920 IFNUS="""“THENSOO 

925 N=VALC(NUS) 

930 IFNC1ORN)PZTHENPRINTOS32, “NUMERO INVAL IDO“ FORX=1TOS0O:NEXTX 
«GoTOP00 

995 IF NOS(N)=""THENPRINTOSI2, “DISCO NAO CADASTRADO” 3FORX=1TOS00 
«NEXTX:GO0TOP00 

940 NOSC(NI=""2D$C(N)=""2B(N)=02G(N)=02SS(N)="“ENPCN)=O 

945 FORZ=1TOPQIPRSCN,Z)=""2NEXTZ 

950 PRINTO398, “DIRETORIO DO DISCO “N” DELETADO” 
A DELETAR OUTRO DIRETORIO (S/N) 77 

955 R$=INKEYS: IFR$="“THEN9SSELSEIFR$="5"THENSODELSESOO 

960 G0TOS00 

4000 REM ==sessssasanas TELA 2 == 

14005 CLSsPRINTTAB(O)“ARQUIVO DE DIRETORIOS”;TAB(43)"ROTINAS DE I 
MPRESSAO” 1PRINTSTRINOS (63, 45) :PRINTEX=10 

4040 PRINTTAB(X)"L — IMPRIMIR CATALOGO DE DIRETORIOS” 

1015 PRINTTAB(X)“2 - IMPRIMIR RELACAO GERAL DE DISCOS” 

1020 PRINTTAB(X)"3 - IMPRIMIR INDICE REMISSIVO DE PROGRAMAS” 





INT9730,“DESEJ 








PROORDOI/BAS 









uma PROORDOL/BAS nnumanannaa: 
ROTINA PARA INPRESSAO DO INDICE REMISSIVO 








MAX. DE PROGRAMAS (INCLUSIVE BACK-UP) 
Max. DE PROGRAMAS (SEM BACK-UP) 
SCPR),PUSCPR) 

40 DIMPICPR), PUCPR) 





IFRIGHTSCPPSCZ), 13) C)RIBHTSCPPSCZ41),13)THENJ= IA SP ICI SZ+L PUC IA) XA SEXO 
NEXTZSPUCI)=PUCI)-4 

FORZ=1TOJ-1 
PISCZISRIGHTSCPPSC 
FORX=PICZ)TOPICZ)+CPUCZI-1) 
RSSLEFTSCPPSCX),2) 
PUSCTI=PUSCZI” “+R$ 
NEXTXENEXTZ 
CLSIPRINT”IMPRIMINDO. ..” 
LPRINTELPRINTTAS(72)“PAG. 
LPRINTTAB(16)“INDICE REMISSIVO DO CATALOGO DE DIRETORIOS” 
LPRINTTAB(22)“mama TOTAL! “;SLPRINTUSINOCWNN”; J-1p SLPRINT” PROGRAMAS mmmaraL 


PRINTTAB(X)“4 — TELA PRINCIPAL 
PRINTTAB(X)STRINGS (42,45) 
PRINTSPRINTTAB(X)“SUA OPCAO s 
RS=INKEYS:IFR$="“THENI04O 
X=VAL(RS) 
ONXGOTO 1100, 1200,1300,500 
60701000 
REM ==========2== IMPRESSAO CATALOGO == 
1103 G0SUB1205 
1105 PG=1:CT=0 
114140 FORQ=1TOPZ 
4115 IFQ=1THENLPRINTTAB(73)"PAG.“PGILPRINTILPRINTOHRS(14) 97 
CATALOGO DE DIRETORIOS“:LPRINTILPRINTECT=CT+S 
1120 IFNOS(G)="“THENNEXTO 
1125 IFQ)PZTHEN100O 
1130 IFCT=0THENLPRINTTAS(73)“PAG.“PGILPRINTECT=CT+2 
4495 LPRINTILPRINTELPRINT 
1140 LPRINTTAB(3)CHR$(14); “DISCO N. “SLPRINTUSINGNA” 50; SLPRINT 
— NOME 3 “NOS(Q)ILPRINTCHRS(20)s 
1145 LPRINTTAB(4) “Datas “DSC 
CONPCQ)"Programas ) - Invi “! 
11450 A=-G:FORZ=1TONP(Q) FA=AsL4FIFA=)70THENA=6ILPRINTO 
4155 LPRINTTABCA)PRS(Q,Z); SNEXTZILPRINTO “SLPRINTTAB(3)STRINOS(7 
6, ASIELPRINT 
1iso IFNP(G)=OTHENNP(Q)=1 
1165 CL=(NP(Q)+4)/52CT=CT+INTICL) 
14170 CT=CT+8 
4475 IF CT=)52THENGOSUB 1 185tPG=PG+1ECT=0 
1180 NEXTG:G0TO1000 
1185 Ros Tnitada CIA PRANTO NEXT LASER 
1200 REM ==: ELACAO DOS DISCOS == 
1203 EONMIDOSIRTOSEIS 
1205 CLSsPRINT“PREPARE A IMPRESSORA NO INICIO DO FORMULARIO E TE 
CLE <RETURN)” 
4240 R$=INKEYS: IFR$="“THENI210ELSERETURN 
14215 TB=0:T6=0:TN=0 
1220 LPRINTILPRINTCHRS( 14); RELACAO GERAL DOS DISCOS“ILP 
RINTELPRINTILPRINTTAB(LO)STRINOS(S9,45) 
1225 LPRINTTAS 10)“NUMERO”; TAB (23)“N 0 M ErsTAB(I9)“BYTES";TABCS 
0)"GRANS”; TAB(60)“PROGRAMAS” 
1230 LPRINTTAB(39)"LIVRES”; TAB(SO)“LIVRES” 
1235 LPRINTTAB(10)STRINGS(59,45) 
1240 FORG=1TOPZ 
1245 IFNOS(G)=""THENNEXTO 
1250 IFQ)PZTHEN1270 
1255 LPRINTTAB(12)USING"WW” O; EL! 
(0); SLPRINTTAB (SL USING" AHH” OCA 


e“G(0)"Grans livres 














INTTAB(23)NOS(Q); ILPRINTTAB(3S 
LPRINTTAB (63) 





USING" MN" ;NP(G) 

1260 TE=TB+B(Q)LTO=TO+G(O) ETN=TNANP (CG) 

1265 NEXTO 

4270 LPRINTTAB(10)STRINOS(S9,45) 

1275 Li NTTAB(1B)“T O TAIS 17;5LPRINTTAB(3S) USING" NANNNNAOT 
BysLPR NTTAB (SO USING" MNHH”; TG; ELPRINTTAB (62) USING" MM” TN 

1280 LPRINTTAB(10)STRINGS(S9,45) 

1285 GoT0O1000 
1300 REM =======es==e== ORDENACAO E GRAVACAO == 

1304 CLS:PRINT“DESEJA GRAVAR EM DISCO O ARQUIVO DA MEMORIA (S/N) 
Er 

1302 RSSINKEYS: IFR$=""“THENS302ELSEIFR$=“S“THENZOO 

4305 CLS:PRINT“AGUARDE. .. VOU INICIAR PROCESSAMENTO DA ORDENAÇÃO. 








Jet 

FORY=1TOPZ 
IFNOSCY)=""THENNEXTY 

FORW=1 TOPA 

IFY)PZTHENL370 
IFPRSCY,W)=""THEN136S 
60SUB1390 

PUS=PRSCY,WI+BRS 
BESSRIGHTS(STRSCY),2) 
PPSCI)=BBS+”—"+PWSIJ=J+s 
NEXTW 

NEXTY 
OPEN“O”,2,“LISTDIR/0RD” 
PRINT 42,3 

FORZ=1TOJIPRINT W2,PPS(Z)SNEXTZSCLOSEZ 
RUN“PROORDOL/BAS” 
BR$="“1FORZ=LENCPRSCY,W))TOLZ 
Sm BRS+ 

NEXTZIRETURN 








(7)),43) 


1ºILPRINT 





OR: 0. 
50 GOSUB26s 200 LPRINTTAB(S)PISCZ);TAB(20)" 2”; TAB(23)PUSCZ) 


55 CLSIPRINT"PROCESSANDO A ORDENACAO. . 





205 CT=CT+1 














40 OPEN“I”,2,“LISTDIR/0RD” 210 IFCT=61THENPG=PO+1 :FORX=ITOSFLPRINTINEXTX:CT=0:G0SUB240 
65 INPUT 42,4 215 NEXTZ 

70 FORZ=1TO 220 LPRINTTAB(S)STRINGS(74,45) 

75 INPUT W2,PPSCZ) 225 CLSSPRINTOUTRA COPIA (S/N) 7º 

BO NEXTZICLOSEZ 230 R$=INKEYS:IFR$=""THENZIDELSE IFR$="S“THENGOSUB265160T0165 
es mxeJ-1 235 RUN“ARGDIROL/DAS” 

90 FORZ=iTOMX 240 LPRINTELPRINTELPRINTTAB(72)"PAG. “;POSCT=CT+S 

95 IFVALCLEFTSCPPS(Z),2))(LOTHENPPSCZIm” “+PPSCZ) 245 LPRINTELPRINTIAB(S)“PROGRAMA(S)” TAB(23)“DISCO(S) 

400 NEXTZ 250 LPRINTTAB(S)STRINGS(13,45) TAB (23)STRINOS(S6, 45) 

405 CHD“O”,MX,PPSC1)(3,16) 295 LPRINT 

440 Xmts JuisPIiCI)=X 260 RETURN 

445 FORZ=1TOMZ 265 CLS!PRINT"POSICIONE A IMPRESSORA NO INICIO DO FORMULARIO E TECLE emeruror MR 
420 IFRIGHTSCPPSCZ;,13)=RIGHTECPPSCZ+1),13)THENX=X+12G0TOL30 270 IFINKEYS=""THENZ7DELSERETURN 
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FECHE ESTE JOGO E RESOLVA 
SEUS PROBLEMAS. OU NÃO. 





Você pode fechar este jogo de duas maneiras. Aí você ganha uma empresa 
Pode fechar assim; que fabrica os melhores cabos 
fechou e não ganhou nada. Mas pode fechar certo. coaxiais para audio, video e 


radiofrequência aqui no Brasil, 
tendo como principal ponto a 
qualidade de seus produtos. 


Uma empresa que fabrica os 

melhores cabos coaxiais para 

K 0 audio, video e radiofrequência 
k O do Brasil, com nacionalização 

do produto em até 100%, 

0 utilizando material da mais alta 
[9] qualidade e mais de 180 

funcionários altamente 

especializados 

(9) P Se você fechou o jogo da velha 
da maneira certa, você ganhou 

a KMP, uma empresa que 


utiliza a melhor matéria prima, 
pessoal brasileiro altamente 
especializado, tem como ponto 
principal a qualidade de seus 
produtos e um índice de 





BR 116/km 25. Cx. Postal 146 

06800 - Embú SP - Tel.: 011/494-2433 
Pabx - Telex 011/33234 KMPL BR 
Telegramas Pirelcable 


Qualquer dúvida chame nosso Departamento de Engenharia de Marketing. E NUNCA PERCA NESTE JOGO DA VELHA. 


Cabos Especiais e Sistemas Ltda. 


nacionalização de quase 100%. 
Tudo isso para que você tenha 
os melhores cabos coaxiais de 
audio, video e radiofrequência 

do Brasil. 


a 
[| 
ma 





CTT MS. Servicos ED 





SOFTWARE — CP/M 





e Administração Imóveis/ 
Condomínios 

e Controle Administrativo/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

e Controle Operacional Hotéis 

e Correção Monetária balanço 

e Faturamento Serviços Médicos 
(Convênios) 

e Formulação/Cálculo de Rações 

e Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 


Praia de Botafogo nº 210 — C-01 
CEP 22250 — Botafogo — RJ 
Tel. PBX (021) 551-6699 


COMPUTADORES 
E PERIFÉRICOS 


UNITRON 
MICROCRAFT 


VENDAS 
LEASING 


PROGRAMAS 
CURSOS 
ASSISTÊNCIA 
TÉCNICA 


Av. Mal. Câmara, 271 s/loja 101 
Tel: (021) 262-3289 — R.) 





















TIRO BICA 

— INFORMÁTICA | 
HARDWARE | 
ASSINATURAS “º 72 0cmedr 
SOFTWARE 
s 





venda e locação 

E ACESSÓRIOS | 
cia forrradér 
CONSULTORIA E SERVIÇOS 
EMPRESARIAIS 
Escritórios, lojas, € 
CONSULTE-NOS 
SEM COMPROMISSO 





ROBOTIC 


€ Microcomputadores de 
todas as marcas 
novos e usados 


€ Suprimento 


€ Peças e partes para 
microcomputadores 


€ Jogos eletrônicos 


RUA BARATA RIBEIRO, 37 

— Loja 105 APART HOTEL — 

COPACABANA — RIO — RJ 
TEL.: (021) 257-6396 





ALBAMAR 


ELETRÔNICA LTDA. 


FITAS CASSETES 
TAMANHOS 
C5 C10 C15 C20 
C30 e outros 


SFITAS 
MAGNÉTICAS 
1200 e 2400 pés 


O DISKETTES 
51/4e8” 


Rua Conde de Leopoldina 

270-A São Cristóvão — R.J 

Tels.: (021) 580-6729 
580-8276 


PARA 
PROBLEMAS 
TÉCNICOS 


USE 
A CABEÇA 


PARA PROBLEMAS COM MATERIAL DE 
DESENHO - PINTURA - ENGENHARIA 
PAPELARIA - ESCRITÓRIO - MÁQUINAS P/ 
ESCRITÓRIO E SUPRIMENTOS EM GERAL 

gor O BEL-BAZAR 
(AÍ ELETRÔNICO 
onde você AINDA encontra 
e qualidade de ANTIGAM! Y 
AV, ALMIRANTE BARROSO, 81 - LJ “C” 
T +9229 - 262.908 - 240-8410 - 221-8282 
RIO DE JANEIRO - CASTELO 





Pare de Sonhar... 


Os leitores de MICRO SISTEMAS não têm bola 
de cristal para adivinhar a cor de seus produtos. 


Av. Pres. Wilson n.º 165 — gr. 1.210/16 — Tel: (021) 262- 5259/262-6437 
CEP: 20.030 — Rio de Janeiro — RJ. 


Rua Oliveira Dias n.º 153 — Jd. Paulista — Tel: (011) 583- 3800/8537758 
CEP: 01433 — São Paulo — SP. 


MACH FORM 


MÁQUINAS 
E FORMULÁRIOS LTDA 


REBOBINAÇÃO DE FITAS 
DE IMPRESSORAS 

ELGIN, DISMAC, ELEBRA eoutras 
ENCADERNAÇÕES 
SERVIÇOS GRÁFICOS 
OFF-SET — TIPOGRÁFICO 
NOTA FISCAL — FATURA 
IMPLANTAÇÃO — RENOVAÇÃO 
COMPRA E VENDA DE 
MÁQUINAS DE ESCRITÓRIO 
EM GERAL 

CONTRATO DE MANUTENÇÃO 
E CONSERTOS 

ARTIGOS DE PAPELARIA 


e 


MICROS, 
PERIFÉRICOS, 
SUPRIMENTOS, 
SOFTWARE, 
MANUTENÇÃO, 
CURSOS E 
LITERATURA. 


EFICIÊNCIA E 
CONFIABILIDADE 


A ESSÊNCIA DO 
NOSSO TRABALHO 


R. Paraíba, 1256 Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.G. 





ANUNCIE EM MICRO SISTEMAS, 
E TENHA UM MACRO RETORNO. 








ROCO 


VENDO 





SOFTWARE 





e Apple & Compatíveis programas 
e manuais — solicite listas — Domi- 
nio Publico Soft & Man — Cx. Pos- 
tal 201 — S. Bernardo do Campo 
- CEP:09700 — S. Paulo. 


e Soft para Apple — Cr$ 18000 dis- 
co cheio. 500 títulos. Peça catálo- 
go — Alfamicro — Cx. P. 21193 — 
SP. 


e Linha TRS80 Color 300 progra- 
mas a sua escolha peça catálogo 
José Luiz Pereira Cx. P. 1536 — 
Foz do Iguaçu — CEP: 85890 — PR. 


€ Vendo programas p/CP500. Tra- 
tar c/A. Gaeta Mq. São Vicente, 
512/1002 — Rio de Janeiro — RJ. 


e Troco programas em Basic ou 
Assembler por carta ou por fita. 
TKs. CP. Rogério R. Liberdade, 
147-apto. 11B — Santos — SP. 
CEP: 11100. 


€ Vendo/troco software p/CP 500 
e similares. Aplicativos, jogos, as- 
sessoria e programas sob encomen- 
da. Cx. P. 5137 — CEP: 74000 
Goiânia — GO. Fone: 225-0632. 


e TK85 e compatíveis. Programas 

inéditos. Peça relação pelo correio. 

Bonisoft. Av. Paula e Souza, 422 
Maracanã — RJ — CEP: 20271. 


Clossif 


e Atenção empresários usuários da 
linha TRSBO, disponho de um soft- 
ware gerador de histograma na im- 
pressora com escala e plotagem va- 
riáveis. Informações pela Caixa 
Postal 2913 CEP: 60000 — Forta- 
leza — CE. 


€ Vendo fita com 10 programas p/ 
TK2000 ou TK85 por Cr$ 40 mil, 
inclusive interpretador Logo. Ven- 
do compilador forth para TK2000/ 
85. Compro programas p/TK 2000 
— S. C. Sampaio — Fone 2119595 
ramal 186 — Rua Pe. Leopoldo 
Fernandes, 360 — 60000 — Forta- 
leza — CE. 


e Vendo 40 jogos 16K p/25 mil 
como: Zaxxon e Phoenix p/TK e 
Sinclair e 100 jogos p/Atari 2600: 
32 ouro e 68 prata p/400 mil. Sér- 
gio — Cx. P. 529 — CEP: 09500 — 
S.C. Sul — SP. 


€ Vendo e troco bons programas 
para TRS-Color/CP400. Adriano 
Botelho R. Antonio J. Almeida, 
180 — CEP: 13900 — Amparo — 
sP. 


e Troco programas CP-500 disco. 
Paulo R. Emiliano Perneta, 837 
apto 802, Curitiba — Paraná — CEP: 
80000. 


€ Programas p/Apple: aplicativos, 
utilitários, compiladores, lingua- 
gens e jogos. Tel.: (021) 239- 
0449, Stela. 


você é quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto você terá que pagar? Isso também é 


decisão sua. Preste atenção: 


e cada linha de texto (30 toques, incluindo os espaços em branco) 


custa Cr$ 2.000,00; 


e linhas incompletas serão cobradas como inteiras; 


icados 


Compro 


e Topografia: Soft p/cálculo 
analítico de área p/Sinclair 16K 
(300 estações). C/Ricardo Tel.: 
(055) 221-1581, Silva Jardim 
1953 apto. 702 Sta. Maria — RS. 


€ Aka resolução no seu Sinclair ape- 
nas por Software. P/receber maio- 
res informações escreva p/R. Ti- 
mor, 41 S.B.C. SP CCP: 09700 ou 
Trav. Quintino Bocaiúva, 32 — St. 
André — SP — CEP: 09000. 


e Datamicro Software Clube, me- 
diante pequena mensalidade, reti- 
re semanalmente um programa de 
jogos ou aplicativos para Sinclair, 
TRS-80 Color, TK 2000. Rua Visc. 
de Pirajá, 547 s/211 tel.:511-0395. 


DIVERSOS 


€ Commodore-64, assessoria, soft- 
ware, manutenção e acessórios. 
Av. Brig. Faria Lima, 1644 s/| 26 
— São Paulo — SP. Fone: (011) 
843-1065. 





EQUIPAMENTOS 


€ Radioamador vendo interfaces 
para CW e RTTY para ser usado 
com seu micro TK82/83/85 CP 
200 Ringo. Renato Strauss PY2- 
EMI. Rua Cardoso de Almeida, 
654/32 05013 — São Paulo — SP. 





eEprom ZX-Aszmic transforma o 
seu TK82/83/85 e CP200 em uma 
unidade de programação Assem- 
bler. Use todos os Mnemônicos Z 
80, Labels, Origin, Equate. Alta re- 
solução gráfica, 255 X144 Pixels. 
Todas as teclas com auto-repeat, 
merge de programas de fita K7, e 
muitas outras funções. Acompa- 
nha manual de 100 páginas. 14 
ORTN. Mandamos por reembol- 
so Varig. Pedidos à Compute, Rua 
Cruz Machado, 474, Caixa Postal 
1427, Curitiba, PR. CEP: 80000. 


CURSOS 


SHARDWARE ministra cursos de 
Microprocessadores Z-B0, 8085, 
8080, 8086, 8088 e seus periféri- 
cos: PIO, SIO, CTC, 8212, 8224, 
8228, 8251, 8253, 8255. ASSEM- 
BLER Zilog e Intel. E o primeiro 
curso de manutenção de Micro- 
computadores do Brasil de toda li- 
nha TRS-80 (CP-500, DGT-100, 
D-8000, Sysdata, Naja). APOSTI- 
LADOS — Rua das Marrecas, 39 
S/402 — Rio de Janeiro — RJ. — 
Tel.: (021) 220-5403 e 252-9683. 


SA Apple House-Sigmatron está 
ministrando cursos de: Basic, 
Assembly (Micro Processador 
6502), DOS (arquivo em disco). 
Todos os períodos, matrículas aber- 
tas, certificado de frequência. Av. 
Cotovia, 350 — Moema. Tel.: 240- 
9004. 


QUEM MANDA 
NESTA PAGINA SOU EU! 


Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 


eo próprio anunciante deve checar o valor de seu anúncio com o 


número de linhas que ele contiver; 


e o anúncio deve vir acompanhado de um cheque nominal à ATI 


Editora Ltda; 


Os textos devem ser datilografados ou escritos em letra de fôrma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 





alole[ [elele EI RT 





e| iglrjajvjajdlo|r clajsisje te). [T|rjalt/alr 





inlaj=lelols!> 





Maiores informações pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 
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Se você tem pequenas rotinas e programas utilitários 
ore corr epa cm cpm cs, 
cassetes, antecipe-se aos piratas e trate de divulgá-los. En- 
vie-os para a RReçÃo mb MICRO SISTEMAS — SEÇÃO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Não se esqueça de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderá ser útil para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 


Linha TRS-80 


Sensação na tela 


Provoque um efeito sensacional no vídeo do seu micro, 
com esta dica que faz a mensagem surgir, caráter por caráter, 
do canto direito da tela até a posição desejada. Teste e con- 
fira. 


JCLEAR 200 
40 CLS: INPUT/MENSAGEM” ; M$: CLS:M$ 
=M6+” “e 

20 FOR K=í TO LENCMS)2FOR 1=63 T 
O K STEP -1:PRINTOL, MIDSCMS,K, 1) 
3” “3NEXT I,KEGOTO 20 


Antonio Carlos L. de Santana — SP 


Linha SINCLAIR 


Centralize o texto 


Aí vai uma dica para os iniciantes aprenderem a 
centralizar os textos no seu micro: 


£O LET AbB="CENTRALIZAÇÃO” 
20 PRINT TAB 41S-LEN AG/25A6 


ou 
20 PRINT AT iO,ÍS-LEN AB/25AS 


Ruy Maurício R. Ribeiro — RJ 


Linha SINCLAIR 


Datilografia no micro 


ento como se estivesse 


Escreva na tela do seu equi; 
ca: primeiro, digite o se- 


batendo a máquina com esta 
guinte programa: 
(40 pontos) 
10 FOR A=i6514 TO 16554 
20 INPUT E 
25 PRINT A;“=";6 
30 POKE A,B 
40 NEXT à 


Depois, dê RUN e entre com estes códigos em decimal: 


16514 205 16531 


219 

248 

24 

216 

Após a entrada dos códigos, elimine as linhas de 10 a 

40, ficando apenas com a linha 1 (linha REM), e rode es- 
ta dica com RAND USR 16514. É bom lembrar que de- 
ve-se usar o espaço usado normalmente para separar as 
palavras (como em datilografia). Quando terminar de ba- 
ter o seu texto no micro, basta apertar SHIFT e BREAK 
para encerrar. 


Manoel Silva Rodrigues — RJ 


Linha TRS-80 


Gráficos em string 


Enfeite seus programas ou logotipos com este progra- 
ma, em que o micro pergunta o gráfico desejado (dentre 
os códigos de 128 até 191), e dentro de uma string da li- 
nha 20 surgirá então, repetido 64 vezes, o gráfico pedido. 
Por falar em linha 20, é necessário deixar 64 espaços em 
branco nesta linha. 

4 cs 

S INPUT”DIGITE O CARACTER DESEJA 
DO (128 -) 491) “sT 

40 IF T<128 OR rios THEN GOTO 5 
20 LET 68=” 

30 G=VARPTR(GS) 

40 PA=PEEK(G+2)n256+PEEK(G+1) 

SO FOR I=PA TO PA+ó3 

60 POKE I,T 

70 NEXT 1 

80 cLS 

90 PRINT"LISTE O PROGRAMA E OBSE 
RVE A LINHA 207 


Miguel! Angelo Henley G. F?— RJ 





Linha TRS-80 Linha 
Tela dançante SINCLAIR 


Coloque esta dica em linguagem de máquina no monitor residente do 
seu micro e veja a tela tremer como se estivesse a ponto de explodir: INKEY$ em FAST 


7000 3E 04 D3 EC Quem pensava que só podia ver 
3E 00 D3 EC INKEY$ em SLOW, agora verá que es- 
c3 00 70 tava enganado: esta dica fácil permite vi- 


sualizar o INKEY$ em FAST também! 


E para quem desejar fazer este mesmo efeito, só que bem mais lento, E para isso, basta colocar antes de qual- 


é só entrar com esta linha em BASIC: 


quer linha com INKEY $, uma linha que 
tenha: RAND USR 681. Muito simples, 


10 OUT 236,0:0UT 236,4:G0TO 10 não? 


INTE: 
Simulando DEFM 


Eis uma dica bastante útil para 
o pessoal que lida com Assembler: 
ela simula, com rapidez e seguran- 
ça, a instrução DEFM. Nesta roti- 
na que daremos a seguir, as linhas 
9030 e 9035 mudam a posição do 
PRINT do arquivo de imagem pa- 
ra uma área qualquer da RAM (de- 
signada pela variável E), fazendo 
com que o PRINT funcione co- 
mo um POKE mais poderoso do 
que o normal. 


9000 PRINT "ENDEREÇO 2?" 

9005 INPUT E 

9010 PRINT "MENSAGEM ?" 

9015 INPUT M$ 

9020 LET X=PEEK 16398 

9025 LET Y=PEEK 16399 

9030 POKE 16398,E-256* 
INT(E/256) 

9035 POKE 16399, INT(E/ 
256) 

9040 PRINT M$ 

9045 POKE 16398,X 

9050 POKE 16399,Y 

9055 PRINT "MENSAGEM D 
EFINIDA." 

Rae dao LEE 


Alexandre Costa Gaeta — RJ Adriano Pascoal Pereira — RJ 


Linha SINCLAIR 
Implemente READ e DATA 


Não raro vemos em tabelas de compatibilidade de BASIC, entre equipa- 
mentos que usam lógicas diferentes, a afirmação de que não há correspon- 
dente das funções READ e DATA nos micros da lógica Sinclair. A rigor, de 
um teclado para o outro, não há mesmo. Mas MICRO SISTEMAS já publi- 
cou como conseguir simular estas funções (MS nº 25, pág. 8, na matéria 
“DATA, READ e RESTORE no TK”). Eis agora uma outra rotina que 
também permite a utilização destas instruções nos micros da linha Sinclair. 

Para executá-la, faça primeiro a entrada de dados da listagem 1 com os 
comandos E e M do MICRO BUG. Ao terminar de digitar os códigos da lis- 
tagem 1, digite P 4082, 40F9 para obter o resultado 2BDD. Se o resultado 
obtido não for este, para e reveja os eu pois algum deve estar errado. 

Na listagem 2, o comando RAND USR 16514 corresponde a READ 
AS$, ou seja, transfere tudo o que está na linha REM TO (tudo mesmo, até 
a vírgula) para A$. O Comando REM TO corresponde ao DATA, e é a li- 
nha onde deverão ser escritos os AS. 

Para facilitar ainda mais a compreensão, a listagem 2, que é um progra- 
ma-exemplo desta dica, tem nas suas principais linhas as seguintes tarefas: 
linha 1 — linha reservada para o programa em LM que está contido na li- 
nha 7; linha 2 — dimensionada A$ com tantos caracteres quantos os do 
maior número da linha 7; linha 4 — coloca em A$ um dos valores da linha 
7; linha 7 — contém os valores que AS$ assumirá (um a um); linha 11 — 
executa a rotina em LM contida na linha 1. 


1 REM cemnnnannan an e 


“e 
2 LET ÁS=CHRS O+CHRS O+CHRS O 

3 FOR A=16639 TO 16666 

4 RAND USR 16514 

5 POKE A,VAL AS 

6 NEXT A 

7 REM TO 42,12,64,35,14,22,6,32, 
426,203,127,32,4,203,255,24,2,20 
3,194,119,95,16,241,95,13,200,24 


B FOR A=0 TO 4139 
9 PRINT CHRS C128+INT (RNDR64)); 


z 
10 NEXT À 
41 RAND USR 16639 
12 FOR A=í TO 10 
13 NEXT À 
14 RUN 11 


Fábio Policarpo de Oliveira — RJ 








Eu  £ |rodada MS 





Aquela estação de Buga-Buga mandou QLS? Você sonha com o DXCC básico 
ou já corre atrás do Honor-Roll? Tudo será mais fácil agora, com o... 


DXCC cibernético 


radioamador entusiasta do 

DX o controle de sua situa- 
ção sobre todos os países válidos para o 
DXCC e, acredito, será de grande va- 
lia principalmente para aqueles que se 
dedicam ao referido diploma. Com ele, 
você poderá a ey momento obter, 
através do prefixo ou nome do país, a 
sua situação em relação a qualquer dos 
315 países atualmente válidos para o 
DXCC, bem como a estação trabalhada 
ou a que você já tenha creditado em al- 
gum dos seus endossos. Será possível, 
também, a obtenção de listagem via im- 
pressora contendo uma relação de prefi- 
xos e países ou ainda de outra relação 
de prefixos, países e sua situação em re- 
lação a cada um deles. 

O programa foi desenvolvido para ro- 
dar em BASIC cassete e utiliza a instru- 
ção DATA para o armazenamento dos 
dados. Os que dispõem de BASIC disco 
poderão modificar parte do programa, o 
que será descrito posteriormente. 

Para obter um bom resultado com es- 
te programa, tenha à mão a lista atuali- 
zada dos países da ARRL — a qual não é 
publicada para não alongar desnecessa- 
riamente o trabalho — caso não dispo- 
nha da mesma, peça a um colega ou en- 
vie-me um envelope auto-endereçado e 
selado (SASE) e terei prazer em remetê- 
la. 


ste programa foi desenvolvido 
j com o objetivo de permitir ao 





RODANDO O PROGRAMA 


A primeira opção do menu principal 
destina-se ao arquivo de dados. Na pri- 
meira vez em que rodar o programa, vo- 
cé deve completá-lo com os dados dos 
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países da ARRL. Isto é feito, segundo 
as instruções contidas no próprio pro- 
grama, através da introdução de declara- 
ções DATA, a partir da linha 1001 (exem- 
plo: 1025 DATA 25, VK, AUSTRÁLIA, 
VK2DTA, TRABALHADA). É impor- 
tante numerar as linhas DATA com in- 
tervalos de uma unidade. Isso porque 
quando você armazenar os dados do úl- 
timo país, eles estarão na linha 1315, e 
toda a vez que for necessária alguma 
modificação, através da procura por pre- 
fixo ou país, você obterá um número de 
arquivo no vídeo que somado a 1000 lhe 
possibilitará localizar a linha onde os da- 
dos estão armazenados. 

A maior precaução a ser tomada no 
armazenamento dos dados é quanto ao 
comentário sobre cada país. Seja o mais 


IFKH$S="2",G0TO4210 
G0T04030 


LS:INPUT"ENTRE COM A DATA";DTS 
EX 


Jorge A. C. Bettencourt Soares 


suscinto possível, pois as rotinas de im- 
pressão comportam apenas breves co- 
mentários. Você poderá detalhá-los me- 
lhor, mas será necessário modificar a ro- 
tina de impressão que os inclui. pé 

A título de sugestão utilize NÃO 
TRABALHADO, PARA CRÉDITO, 1 
* CÉDITO, 2 * CRÉDITOS etc. 

As opções 2 e 3 do menu principal 
destinam-se à procura de dados, quer 
pelo prefixo ou pelo nome do país de- 
sejado, respectivamente. Você deverá 
cuidar apenas com a introdução correta 
do prefixo ou nome do país em questão 
para obter a informação sem ocorrência 
de erro na execução do programa. 

A opção 4 destina-se ao armazena- 
mento de dados estatísticos, e o próprio 
programa lhe orientará na introdução 


A QUANTIDADE DE PAISES VALIDOS PARA O'D.X.C.C.“;M 


A QUANTIDADE DE PAISES TRABALHADOS";K 
* R QUANTIDADE DE PAISES CONFIRMADOS“;O 


QUANTIDADE DE PAISES CREDITADOS 


PRINTEL,M 
PRIKTéL,N 


PRINT$1,0 
PRIKTSL,P 
CLOSEs1 
soTo40 


“;P 
GRAVADOS EM DIS 


CLS:PRINT"LEITURA DE DADOS ESTATISTICOS SENDO REALIZADA"; 


OPEN"I",2,"DXCC/EST 
INPUT6Z,DTS 
IXPUT6Z,M 

INPUT6Z,NK 

INPUTS2,0 
INPUT4Z,P 

CLOSESZ 





Figura 1 — Modificações para uso com BASIC disco 
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EE Sa 
Especialistas em é» microcomputadores 
ae até você toda sua estrutura de Marketing. Conheça 
os CP300 e CP5OO aliados ao alto desempenho da Impressora 


P50O e na configuração exata do seu problema. 


À Filcres oferece aos seus usuários assistência técnica 





De PYIDWM 


ODADA MS, em nova edição, traz nova colaboração de PY5CIG-Alcione, ende- 
reçada aos de Furinhas” é que tomará o controle dos países trabalha. 
dos/confirmados no DXCC verdadeira brincadeira de criança. A listagem é para os 
possuidores da linha TRS-80 — Acic fara q ARE to dE 
usuários de versão disco entá-a. 

O programa Código Co a ada SINCLAIR (cadê o indicativo, Jorge?) vem fazen- 
perder co/mtorrseo dr praca q dm rd 2 sr descrevendo uma in- 
terface facílima de construir, que permite ao do J 
um transmissor, transformando o seu SINCLAIR em um “ keyboard 
ouvir na Rodada do Micro, é de fazer muito “munheca de ouro” ficar de 

Recebemos com muita "satisfação, de RENSI Eletrônica Digital (leia-se 2EML Re- 
nato e PY2AIM-Sinésio), uma interface RS 1050/A, para transmissão e de CW 
Ee = 1 oa » para ser testada pela Rodada MS e sorteada entre os nossos 

lores. 

SORTEIO DAS ASSINATURAS DE MS: em “solenidade” realizada em nossa reda- 
se: Eltrgio sgnisertd — ego m-chefe” Te o ga 
or-Técnico Renato vani, € próprio, elizes ganhadores 
assinaturas por um ano PeECIM Mabe PY3BU-Jason e PY1FO-Évio. 

satisfação pelo sucesso de nossa promo- 
ção, que teve o expressivo número de 172 participantes de todas as regiões radioamado- 
Rana RA prio Som bgoltaro Vnnanio pessfeaçáodda MS. Nosso muito obrigado a 


todos e 

ape esdinca recebida: de PYIAFA-Gil (Antenna/ Eletrônica ), de 
PY20N ício, PY3GJ-Siebel, PY30V-Ribeiro, PY1XT-Guaracy, PYIDPQ-Bruno, 
PY2VDK-Iberê, PY2UMW-Miguel, PY2VBA-Ideli, PY2CJW-Maneco, PY3IT-Pivatto, 
PY3LL-Deco, PRTAAV-Kleber e PT7-IS-Ilídio, com ob: s e colabora- 
ções diversas. Acusamos, ainda, a visita à nossa redação de Y3KT-Walter, ocasião em 
que tomar contato com todo o nosso pessoal e sentir o carinho com que MS é feita. 


expediente, (página 4 pntandeco PY2AQO-Luiz, 
ae rr do a que vem de y mars se 


RO! ADA MS e pela eficiente 
condução da rodada ao Micro — todos os nossos e agradecimentos ao Luiz nunca 
estarão à altura de sua 


dedicação. 

Curtam, agora, o trabalho do Alcione e mandem-nos notícias de suas realizações, em 
especial à conquista do DXCC. Fiquem conosco e não percam a nossa próxima edição. 
E HPE CUAGN 73 ES GL FM PYIDWM 


Na ocasião, nossa “chefa” Pepe tu pr 


A RODADA MS spa ab std por PYIDWM — Roberto Quito de Sant'Anna. Qualquer 
correspondência ejou deve ser aos seus cuidados, para a Av. Presi- 
dente Lina re o TSTO CEP 20030, Rio de Janeiro, RJ. Contatos diretos via 
Rodada do 7 KHz, das 16:00 às 18:00h). Patrulha da Madrugada (7055 
KHz, das 22: 00 23:00h) ou pelo telefone (0243) 54-3355, ramal 594. 


destes dados, utilizando-se de variáveis 
encontradas entre as linhas 10000 e 
10040. Aqueles que dispuserem de BA- 
SIC disco deverão utilizar a listagem en- 
contrada na figura 1, desconsiderando 
todas as linhas compreendidas entre as 
linhas 4050 e 4280 da listagem principal. 
Também não deverão ser copiadas as 
linhas a partir da 9000, pois as mesmas 
só produzem efeito para a rotina de da- 
dos estatísticos na versão cassete. 

A opção 5 destina-se à listagem em 
impressora. São fornecidas as duas lista- 
gens já descritas anteriormente. 

A opção 6 só é executável em BASIC 
disco, e, por fim, a opção 7 destina-se a 
gravar o programa, opção esta que será 
utilizada toda a vez que você modificar 
algum dado. A mesma encontra-se na li- 
nha 7000, e aqueles que possuem BASIC 
disco deverão trocar a instrução CSAVE 
por SAVE. 

O programa é, sem dúvida, trabalho- 
so no que diz respeito à introdução de 
dados, tendo em vista a grande quanti- 
dade dos mesmos, mas será de grande 
utilidade ao radioamador praticante do 
DX. Por fim, você poderá otimizá-lo in- 
cluindo, nas instruções DATA, outra va- 
riável que lhe possibilite, também, obter 
a direção em graus de sua localidade pa- 
ra cada um dos países armazenados. 


Jorge A. C. Bettencourt Soares é engenheiro 
agrônomo e trabalha na Coordenadoria de As- 
sistência Técnica Integral da Secretaria de Agri- 
cultura e abastecimento, na cidade de Bauru, 
SP. Já foi programador de um Burroughs B- 
500 no início da década de 70 e atualmente é 











ot 
10 "PROGRAMA D.X.C.C. ALCIONE SPERANDIO JUNIOR 

20 "RUA SAO LEOPOLDO 125 - 80.000 - CURITIBA - PARANA 

30 

40 CLSFCLEAR200 

SO FORA=OTOSL272SET(A,O)ISETCA, 10) ISET(A, 37) ISET(A, 47) ENEXTA 

60 PRINTA66,“P-Y-5-C-1-0"; sPRINTO92,“D-X-C-C”p sPRINTOLAS,“Z-Y-5- 
C-1-6” 


70 PRINTCHRS(21), 2PRINTOI22, “ARQUIVAR DADOS -1-", 3PRINTOISS, “PRO 
CURA POR PREFIXO -2-",3PRINTO4SO, “PROCURA POR PAIS -3-“;:PRINTAS 
14,“DADOS ESTATISTICOS -4-"; :PRINTOS78, “IMPRESSAO DE DADOS -5-"; 
SPRINTO642, “DIRETORIO -6-"; !PRINTOZ06, “GRAVAR O PROGRAMA -7-"; 
BO PRINTO926,“C(C)) Alcione Sperandio Junior.”s 

Bi FORA=10TOI7ISET(O,A)ISET(64,A)SSET(127,A)2NEXT 

90 KHS=INKEYS 

400 IFKH$="1",900 

140 IFKH$="2",2000 

420 IFKH$="3", 3000 

130 IFKHS: + 4000 

140 IFKHS="S”, ; 5000 

150 IFKH$S="6", 6000 

160 IFKH$="7",7000 

470 GoToso 

900 GOSUBBODO:FORA=1TOLOO!PRINTOS79, “ARQUIVO DE DADOS”; INEXTASCL 
s 

P10 PRINT“UTILIZAR < DATA > A PARTIR DA LINHA 10017 

920 PRINT“ENTRE COM OS DADOS OBDECENDO A SEGUINTE ORDEM”; 

930 PRINTOI84, “NUMERO DE ARQUIVO” :PRINT"PREFIXO(S)“IPRINT"PAIS"E 
PRINT“COMENTARIOS“:PRINT“PREFIXO DA ESTACAO < CREDITADA - P/CRED 
ITO OU TRABALHADA )”; 

940 PRINTIPRINTIPRINTPRESSIONE QUALQUER TECLA”; 

950 IFINKEYS="",GoTO9SO 

960 CLSsLISTIO0O1! - 16800 

RR pr oRA=i TO 100 rPRINTAGTO, PROCURA POR PREFIXO”; ENEXT 
8 

ZOLO INPUT“ENTRE COM O PREFIXO PARA PROCURA” ;PPS 

2020 RESTORE:FORA=1T0320:0NERRORGOTOZOSS 















usuário de um TK85. 










2030 READN,AS,8$,C$,DS 
2040 IFPPS=LEFTSCAS,LEN(PP$)5,2060 

2050 NEXTA 

2055 FORA=1TOSO:PRINTA64, “PREFIXO NAO ENCONTRADO” :NEXTAIGOTOZ0LO 
2060 CLS:PRINT“PROCURA POR PREFIXO REALIZADA”; 3FORA=DTOL271SET(A 
(10) ISET(A,35) !NEXTAIFORA=10TOISSSET(O, A) ESET(30,A):SETCL27,A)EN 
EXTA 

2070 PRINTO323, “ARQUIVO Ne”; PRINTOIB?,“PREFIXOCS)”; SPRINTOASA, 
PAIS”; SPRINTOSAS, “COMENTARIOS”; EPRINTOS79, “ESTACAO(ÕES)”; 

2080 PRINTR3I6,N; !PRINTO4OL AS; EPRINTO46S,BS; !PRINTOS29,CS; SPRIN 



















79593,08$; 

2090 PRINTA927, “MAIS DADOS P/PROCURA SIM OU NAO 7”; 

2100 KHS=INKEYS 

21440 IFKH$="5",GOTO2000 

2420 IFKHS="N”,GOTO4O 

2130 60702100 

3000 GOSUBB000:FORA=1 TOL00:PRINTO679, “PROCURA POR PAIS”; ENEXTAIC 
Ls 

3040 INPUT“ENTRE COM O NOME DO PAIS PARA PROCURA” ;PPS 

3020 RESTORE:FORA=1T0320:0NERRORGOTOIOSS 

3030 READN,AS$,8$,C$,D$S 

3040 IFPPS=LEFTSCBS,LENC(PP$)),3060 

3050 NEXTA 

3055 FORA=1TOSO:PRINTOS4,“PAIS NAO ENCONTRADO” :NEXTA:GOTO30L0 
3060 CLS:PRINT“PROCURA POR PAIS REALIZADA”; 1FORA=0TOL272SET(A, 10 





PARA TAREEO? sNEXTAIFORA=10TO3SFSET(O,A)ISET(3O,A)ESET(127,A)ENEXT 






do70 PRINTOI23, “ARQUIVO Nu”; 2PRINTO3B7, “PAIS”; 2PRINTOASA, “PREFIX 
o(s)» FIPRINTOSÁS, “COMENTARIOS”; *PRINTOS79,“ESTACAO(0ES)" 4 

3080 PRINTO336,N; *PRINTO4AOL BS; IPRINTOA6S, AS; IPRINTOSZS, ÊssPRIN 
79593,08$; 

3090 PRINT9927,"MAIS DADOS P/PROCURA SIM OU NAO 7”; 

3100 KHS=INKEYS 
3110 IFKHS="S”, 








60703000 

IFKHS="N”,GOTO40 

GoT03100 

GOSUBB000:FORA=1TOL00:PRINTOS79,"“ESTATISTICA”; INEXTAICLS 
PRINT“ENTRADA DE DADOS ESTATISTICOS < 4 »* 
PRINT"LISTAGEM DE DADOS ESTATISTICOS < 2 )*4 

KHS=INKEYS 

IFKH$="1",G0704070 

IFKH$S="2",GO0TO4280 





3120 
3130 
4000 
4010 
4020 
4030 
4040 
4050 
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SINTA NOS DEDOS ESTA CONQUISTA 
DIGIPLEX 


NIGITUS 


Rua Gávea, 150 Tet:(031) 3328300 
30.000 - Belo Horizonte - Telex 031-2352 
Rua Barata Ribeiro, 391 -s/ 404 
Tei:(021) 257-2960 - Rio de Janeiro 





Para pequenas e médias empresas, a DIGITUS lança o DIGIPLEX. Um módulo capaz de formar uma rede local [o (5) 
multi-usuários, que além de proporcionar o dinamismo de um CPD também simplificará o gerenciamento de sua 
empresa. 

tá vários terminais executando programas específicos, a implantação do DIGIPLEX proporcionará a sua em- 
presa um aumento da produtividade e qualidade, já que a interligação on line dos terminais permitirá que se 
trabalhe com dados e informações atualizadas. 

Ligados ao DIGIPLEX poderão estar até 16 terminais inteligentes, fazendo a contabilidade, controle de estoque, 
vendas e produção, malas diretas, estatísticas ou seja, atendendo a todas as necessidades de sua empresa. 


23 1310 Baumeri 1 242 1) 225 4000 Belo Horizonte (031) 223 6947 222 7889 334 2822 344 5506 








Revendedores: Aracajú (079) 224 
— 225,3305 225 6239 Campini 

Iguaçã (0455) 72 1478 Goiânia (06; 

Hamburgo (051) 293 1024 Ouro 








2 Montes Ci 038) 221.2599 Niterói (021) 7102780 Novo 
26 1900 Recife (081) 326 9318 221 4995 326 9969 Ribeirão Preto 

3 57.4398 222 4515 263.1241 295 8194 247 7842 322 1960 316.4966 
3922 258 4411 222.1511 853 9288 Taubaté (0122) 32.9807 Vitória (027) 223.5147 
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4060 G0T04030 

4070 CLS1FORA=0TO635PRINTCHRS(95) ; ENEXTA 

4080 PRINT”I-N-S-T-R-U-C-0-E-S  P-A-R-A D-A-D-0-S E-S-T=A-T-I- 

S-T-1-C-0-8”", 

4090 GOSUB9000:PRINTIPRINT 

4100 PRINT”Os dados estatísticos de sua estacao em ralacao aos p 

aises”:PRINTSPRINT"val idos para o D.X.C.C. serao armazenados atr 

aves das variaveis” !PRINTIPRINT"que encontram-se nas linhas NºsP 

RINTISPRINT”10000 - 10040 - 10020 - 10030 - 40040"2PRINT 

4110 PRINT”PRESSIONE QUALQUER TECLA”! GOSUB9000 

4420 IFINKEYS=""4120 

4424 CLS*GOSUB9000:PRINTIPRINT”( 10000 > D 

“aPRINTIPRINT"( 40010 » Quantidade de pa 

C.C.”2PRINTEPRINTO( 10020 > Quantidade de paises trai 

RINTSPRINT"( 10030 > Quant idade de paises confirmado 

4122 PRINTIPRINT”( 10040 > Quantidade de países creditados“:PRIN 

T“Modifiqua-as toda a vez que houver qualquer alteracao em relac 

D.X.C.C.“sPRINTIPRINT"PRESSIONE QUALQUER TECLA” 
IFINKEYS=""4124 

4125 CLS:GOSUB9000:L IST10000-10040 

4280 G0SUB10000 

4290 CLSIFORA=0TOL271SET(A,O)ISET(A, LO) ISETCA, 47) INEXTASFORA=OTO 

472SET(O,A)ISET(127,A) NEXT 

4300 PRINTO66,“D-X-C-C DADOS ESTATISTICOS”p !PRINT9130, “ESTACA 

o P=Y-5-C-1-6"4 

4340 PRINT9258, "DATA DO ULTIMO REGISTRO “;DTS; 

4320 PRINTO386, “PAISES VALIDOS “USING” MNH” ; My SPRINTOASO, “PA 

ISES TRABALHADOS “sUSING“WHH”;Ny !PRINTOSL4, “PAISES CONFIRMADOS “ 

FUSING“WHH” 105 !PRINTOS7B, “PAISES CREDITADOS “,USING“ANNTs;P; 

4330 PRINTO4LB, “PAISES A CONFIRMAR “sUSINGCNHH”;N-Os SPRINTOAGZ, 

PAISES A TRABALHAR “USING” WNH” ;M-Ny FPRINTOS46, “PAISES A CREDITA 

R “jUSINGNNH”,0-P; 

4340 PRINTOB9B, “PARA RETORNAR AO MENU DIGITE G0 TECLA”; 

4950 IFINKEY$S="", GOTO4350 

4360 GOTO40 

5000 GOSUBBO0O:FORA=1 TOL0OsPRINTO679,” IMPRESSAO”; INEXTAICLS 

SO40 PRINTIPRINT"LISTAGEM A.R=ReL (127 

S020 PRINT"LISTAGEM A.R.R.L COM COMENTARIOS (2)7 

5030 DXS=INKEYS 

5040 IFOX$="1”,GOTOS070 

5050 IFOX$="2",GOTOS210 

5060 GoTOS040 

5070 CLS:PRINTCHRS(23) 0256, “PREPERE A IMPRESSORA”SPRINTYAPOS PR 

EPARA-LA DIG (CC 2575 

SOBO PYS=INKEYS 

SO90 IFPY$="C”,GOTOS110 

5100 GOTOS080 





a do ultimo registro 








LPRINT“LISTAGEM A.R.R.L. 


D.X.C.C. 


LPRINT“P-R-E-F-1-X-0 (5); SLPRINTTAB (25); "P-A-I-S-E-S” 


LPRINTILPAENT 
RESTORESFORA=1 0320 


READN,AS,BS,CS,DSILPRINTTAB(O) AS; SLPRINTTAB (25) (BS1ONERROR 


GoTOM0  sNEXTA 
S190 LPRINTELPRINT 


5210 CLSIPRINTCHRS(23),0256,“PREPARE A IMPRESSORA”IPRINTTAPOS PR 


EPARA-LA DIG. (( CD)” 
5220 PYS=INKEYS 

5230 IFPYS="C”,GOTOS250 
5240 GoTos220 


5260 LPRIN 
COMENTARIOS 
270 LPRIN' 





S280 LPRINTTAB(O);“P-R-E-F-1-X-0(8)”; SLPRINTTAB (25); “P-A-I-S-E-S 


“PSLPRINTTAB(SS) ; “COMENTARIOS” 
5290 LPRINTELPRINT 


5300 RESTORE:FORA=1 TO320:READN,AS,B$,CS,DSILPRINTTAB(O) AS; ELPRI 


NTTAB (25) ;8$; !LPRINTTAB (55); CSFONERRORGOTO4O 


2NEXTA 


6000 GOSUBBODO:FORA=1TOL00:PRINTA679, “DIRETORIO”; ENEXTASCLSSPRIN 
TDIRETORIO - BASIC (1) - C.M.D <2)”; 


010 
4020 
6030 
4040 
s050 
4060 
7000 


KHS=INKEYS 

IFKH$S=" 1", GOTOG0SO 
IFKHS , BOTOG060 
GoTOs010 
CLStCHD”DIR”:END 
CMD“DIR”3CMD“S” 





RINT9675,” 


GOSUBB0OO:FORA=1TOL00:PRINTOS79, “GRAVANDO O PROGRAMA”; ICSAU 
E”DXCC”sFORA=1TO100:PRINTAS79, “PROGRAMA GRAVADO 


“SNEXTASP 
*;2G0TO70 


BODO POKE16035,244:POKE16036, 245:POKE16037,2467RETURN 
9000 FORA=0TO637PRINTCHRS (95) ; ENEXTAFRETURN 


10000 
10010 
10020 
10030 
10040 
10050 


DT$="00/00/00” 
M=000 

N=000 

0=000 

P=000 

RETURN 


"DATA ULTIMO REGISTRO 
"QUANTIDADE DE 
"QUANTIDADE DE 
"QUANTIDADE DE 
"QUANTIDADE DE 


PAISES 
PAISES 
PAISES 
PAISES 


VALIDOS 
TRABALHADOS 
CONFIRMADOS 
CREDITADOS 





A GUARDIAN GARANTE 


ENERGIA ATODA PROVA. 


PARAGRAFICS 









Estabilizadores de tensão 


GERADOR ELETRÔNICO GERATRON: 
À PROVA DE FALHAS. 


Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
de emergência. Capacidade de 200 VA, 
com autonomia de até 90 minutos 


ESTABILIZADORES DE TENSÃO 
GUARDIAN: À PROVA DE 
FLUTUAÇÕES E TRANSIENTES. 
Ultra-rápidos, protegem o seu CPD con- 
tra variações da rede ematé +22% ees- 
tabilizam a saída em + 1%. Incorporam 
filtro na entrada, transformador isolador 
echave de transferência paraa rede. Ca- 
pacidade de 0,25 KVA a 100 KVA 





Sistemas No Break 


SISTEMA NO BREAK GUARDIAN: 
À TODA PROVA. 

É a solução mais completa contra tran- 
sientes, flutuações e falta total de ener- 
gia. A Linha Básica varia de 2,5 KVA a 
100 KVA. Dispõe de chave estática de 
saida e utiliza técnica de síntese da for- 
ma de onda senoidal, com tiristores. 

A Linha Econômica é a solução para 
CPD's de pequeno porte, com capacida- 
de de 0,25 KVA a 5 KVA 

Não deixe que a má qualidade da energia 
elétrica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 


(6) GUARDIAN 


Equipamentos Eletrônicos Ltda. 


Rua Dr. Garnier, 579 

Rio de Janeiro - CEP 20.971 

Rio: PABX (021) 261-6458 
Telex: (021) 34.016 

São Paulo: (011) 270-3175 


REPRESENTANTES EM TODO O BRASIL 





(021) 201-0195 





- QUEM TEM UM, TEM FUTURO. 


VOCÊ TEM QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM OS 
NOVOS TEMPOS QUE ESTÃO AÍ. E O 
CP 400 COLOR É A CHAVE DESSA 
EVOLUÇÃO PESSOAL E PROFISSIONAL 


] 








POR QUÊ? 
PORQUE O CP 400 
COLOR É UM 
COMPUTADOR 
PESSOAL 
DETEMPO 
INTEGRAL: ÚTIL 
PARA A FAMÍLIA TODA, O DIA 
INTEIRO. 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO, É MUITO MAIS 
EMOCIONANTE PORQUE, ALÉM DE 








É O ÚNICO COM DOIS JOYSTICKS 
ANALÓGICOS DE ALTA 
SENSIBILIDADE, QUE PERMITEM 
MOVIMENTAR AS IMAGENS 
EM TODAS AS DIREÇÕES, MESMO 

NA HORA DE TRABALHAR E 
ESTUDAR, O CP 400 COLOR MOSTRA 
SEU LADO SÉRIO: MEMÓRIA 
EXPANSÍVEL, PORTA PARA COMU- 
NICAÇÃO DE DADOS, SAÍDA PARA 
IMPRESSORA E UMA ÓTIMA NITIDEZ 
COM IMAGENS COLORIDAS. 

COMO SE TUDO ISSO NÃO 
E, A PROLÓGICA AINDA 
GARANTIA DE 
QUALIDADE DE QUEM É LÍDER NA 
TECNOLOGIA DE COMPUTA 
DORES, E O PREÇO MAIS ACESSÍVEL 
NA CATEGORIA rs 

NUMA FRASE: SE VOCÊ NÃO 
QUISER CHEGAR ATRASADO AO 
FUTURO, COMPRE SEU CP 400 














COLOR IMEDIATAMENTE 
EMOÇÃO E INTELIGÊNCIA NUM 

EQUIPAMENTO SÓ. 

e IMAGENS COM ATÉ 9 CORES 

* ÓTIMA RESOLUÇÃO: 49.152 PONTOS. 

e DUAS VERSÕES À SUA ESCOLHA: 
16K OU 64K DE MEMÓRIA RAM 

* MEMÓRIA RAM EXPANSÍVEL: VOCÊ 
COMEÇA COM 16K E PODE CHEGAR 
ATÉ 64K O J0M DISQUETES 

* UTILIZA CARTUCHOS PARA APLICA 

TIVOS E JOGOS 









EDITOR DE TEX- 
TOS, PLANILHAS 
ELETRÔNICAS, 
GRÁFICOS, 
ENTRE OUTROS 

* MEMÓRIA 
EXTERNA EM 
CASSETE OU DISQUETE (ESTE, 
DISPONÍVEL EM DEZEMBRO) 

* PORTA RS 232 C INCORPORADA, 
PERMITINDO COMUNICAÇÃO | 
DE DADOS E LIGAÇÃO DIRETA À 
IMPRESSORA 
SERIAL 

* PERMITE COM 





|| Us 





PETIÇÃO DE 2 






SMO TEMPO. 
S JOYSTICKS 


OFERECEM INFI 
NITAS POSIÇÕES 


BANCO DE DADOS, 





NA TELA, ENQUANTO OUTROS TÊM 
SOMENT 


8 DIREÇÕES 
* GRANDE QUANTI, 
DADE DE 
PROGRAMAS 
À DISPOSIÇÃO: 
APLICATIVOS 
PESSOAIS, PROFIS- 
SIONAIS E JOGOS. 






MICROCOMPUTADOR=COLOR 
VEJA, TESTE E COMPRE 

SEU CP 400 COLOR NOS MAGAZINES 

E REVENDEDORES PROLÓGICA, 


SER PROLOGICA 
E nad 












JOGADORES AO Es ; 


Apresentamos 0 


TK 2000 1 
Ele roda 0 programa 
mais famoso 
do mundo. 


De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar 0 TK 2000 |. Por que? 

O novo TK 2000 | roda o 
Multicalc : a versão Microsoft do 
Visicalc? 0 programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 4 


efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: 0 novo 
TK 2000 ||, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple”. 

E, como todo business computer 


q 


pagar, faz sua programação financeira, 





que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora & já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

À mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 


Preço de lançamento* [128 K): 
Cr$ 1.949.850 


computadores pessoais 


Y 


a da Apple Code 
E 





Open for Business. 


E 
s 


Filiada à ABICOMP 





a Marca registrada da Visicorp 


MICRODIGSITAL 





* Sue a alteração sem prémio arso 





